Ich habe vor zwei Wochen einen Beitrag eingestellt, da ich das Problem habe, dass Excel alle Seitenzahlen von allen Tabellenblättern addiert, wenn ich beim Drucken mit der Option "ganze Arbeitsmappe drucken" arbeite.
Ich habe also in der Fußzeile jedes Tabellenblatter Seite x von y stehen und er nummeriert die Seiten dann von 1 bis 100 durch, statt bei jedem Tabellenblatt wieder bei 1 anzufangen. Wie kann ich das beheben? Werner hat mir vor zwei Wochen schon sehr geholfen und mir folgenden Code gepostet:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(1).Select
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub
Doch es tritt beim Aufrufen der Druckoption eine Laufzeitfehler 1004 auf.
Was mache ich da noch falsch?
Noch ein Zusatz: Ich weiß, dass ich es auch einfacher machen kann indem ich kurz alle Tabellenblätter markiere und dann drucke, aber die Exceldatei wird von vielen Personen genutzt, weshalb ich es gerne vermeiden würde, dass jeder der die Option "gesamte Arbeitsmappe drucken" eine falsche Durchnummerierung erhält.
Vielen Dank und Gruß,
Stefanseevetal