Mit diesem Makro können Wiederholungszeilen auf einige Seiten beschränkt werden. Standardmäßig werden bei Aktivierung dieser Funktion die Wiederholungszeilen auf allen vorhandenen Seiten ausgegeben.

Die Wiederholungszeilen die für  die Zeilen 1 und 2 festgelegt wurden, werden mit dem nachfolgenden Makro nur auf die Seite 1 und 2 gedruckt. Sollen andere Seiten mit Wiederholungszeilen gedruckt werden, so ist der Code entsprechend anzupassen. Ändern sie dazu die For-Next-Schleife entsprechend ab. 

{codecitation}

Sub Wiederholungs_bedingt()
'** Wiederholungszeilen auf einige Seiten beschränken

Dim a%, b%
b = ExecuteExcel4Macro("Get.Document(50)")
 
If b = 1 Then Exit Sub
 
ActiveSheet.PageSetup.Order = xlDownThenOver
ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"
 
For a = 1 To b
 
  If a > 3 Then
    ActiveSheet.PageSetup.PrintTitleRows = ""
  End If

  ActiveWindow.SelectedSheets.PrintOut _
  From:=a, To:=a, Copies:=1, Collate:=True
 
Next
 
End Sub

{/codecitation}