Wiederholungszeilen auf einige Seiten beschränken

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. 

 

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