Wiederholungszeilen

Gaby8988 

Wiederholungszeilen auf einige Seiten per VBA beschränken

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

*Any articles, templates, third-party products or information I have provided are for reference only. While I endeavor to keep the information up to date and correct as far as I can. I make no representations or warranties, express or implied, as to the completeness, correctness, reliability, suitability, or availability of any product or information, article, file, template, or related graphic on my posts in this forum. The trust you place in such information is therefore entirely at your own risk.

Vorab für die nächste frage, bitte link lesen:

Willkommen in Ihrem Excel-Diskussionsraum!

Hoffe, dass ich Ihnen mit diesen Informationen/Link weiterhelfen konnte.

NikolinoDE

I know I don't know anything (Socrates)

War die Antwort nützlich? Markiere sie als hilfreich!

Somit hilfst du allen Forenteilnehmern weiter.