Mit diesem VBA-Makro können Wiederholungszeilen auf einige Seiten beschränkt werden. Die Wiederholungszeilen Zeile 1 und Zeile werden hier 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()
DIM a%, b%
a = ExecuteExcel4Macro(„Get.Document(50)“)
If a = 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
Weitere Informationen zum Thema VBA, Formeln und weitere umfangreiche Informationen rund um Excel finden Sie auf Excel-Inside.de.