Drucken, Buchdruck
22.12.2007 06:55:00
Hans
Ich habe eine Frage über das Drucken. Mit untenstehenden Codes Drucke ich die einzelnen Seiten aus, ich möchte aber wenn möglich mit nur einem Befehl alle drei Seiten im Buchdruck ausdrucken, also Seite 1 und Seite 2 auf Vorder- und Rückseite und Seite 3 dann wieder als Einzelblatt. Ist so was überhaupt machbar?
Danke im vorraus Hans
Sub Seite1_druck()
With Worksheets("Rapport-Schicht").PageSetup
.PrintArea = ""
.PrintArea = "$B$2:$J$74"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Rapport-Schicht").PrintOut from:=1, To:=1
End Sub
Sub Seite2_druck()
Worksheets("Rapport-Schicht").Activate
With Worksheets("Rapport-Schicht").PageSetup
.PrintArea = ""
.PrintArea = "$L$2:$T$74"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Rapport-Schicht").PrintOut from:=1, To:=1
End Sub
Sub Seite3_druck()
Worksheets("Rapport-Schicht").Activate
With Worksheets("Rapport-Schicht").PageSetup
.PrintArea = ""
.PrintArea = "$V$2:$AD$74"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Rapport-Schicht").PrintOut from:=1, To:=1
End Sub