Dec 29 2021 04:56 AM
Jan 02 2022 06:57 AM
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.