Wiederholungszeilen auf einige Seiten beschränken

101024

Mit diesem Marko 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