Hallo CeeLee,

das geht auch ohne VBA. Einfach unter "Seite einrichten" auf Register Tabelle gehen und bei Wiederholungszeilen oben $1:$3 eingeben. Dann vor dem Ausdruck einfach die zu druckende Zeile (bzw. Zellen) markieren, Druckbereich setzen und auf drucken drücken. Wenns aber unbedingt VBA sein muss, dann vielleicht so:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If ActiveSheet.Name = "Tabelle1" Then
    ActiveSheet.PageSetup.PrintTitleRows = "$1:$3"
    ActiveSheet.PageSetup.PrintArea = Rows(Cells(Rows.Count, 1).End(xlUp).Row).Address
  End If
End Sub

Der Code gehört in das Modul DieseArbeitsmappe. Für Tabelle1 musst du natürlich den Namen deines Druck-Blattes angeben. So stellst du sicher, dass bei den anderen Blättern nicht die gleichen Änderungen getätigt werden.

Gruß Mr. K.