Ich versuche mit folgendem Skript die zwei Tabellenblätter nach Druck auf einem Button auszudrucken. Insgesamt sind es 9 Tabellenblätter, hier exemplarisch nur 2 aufgeführt:
With ThisWorkbook.Worksheets("A").PageSetup
.Zoom = False
.PrintArea = "$A$6:$L$25"
.Orientation = xlPortrait
.Zoom = 75
.CenterHeader = "&""Comic Sans MS""&16""&I" & "Inventurwerte - A"""
With ThisWorkbook.worksheets("B").PageSetup
.Zoom = False
.PrintArea = "$A$6:$O$76"
.Orientation = xlPortrait
.Zoom = 78
.CenterHeader = "&""Comic Sans MS""&16""&I" & "Inventurwerte - B"""
End With
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
Wie muss das Skript abgeändert werden, damit ich das gewünschte Ergebnis erhalte?
Besonderheit: der Druckbereich ist auf jedem Tabellenblatt ein anderer Bereich...
Ebenso wird die Kopfzeile jedesmal anders bezeichnet.
Vielen Dank für Eure Hilfe!