2 Druckbereiche mit Makro drucken
13.06.2006 13:54:41
Heribert
würde gerne 2 Bereiche (im selben Blatt)per EINEM
Makro (Button) ausdrucken....
Leider funktioniert diese Makro so nicht.
Teile ich die Bereiche auf, an 2 Buttons dann geht es natürlich.
Aber wie gesagt, beide Bereich mit nur einem Button ausdrucken.....
Danke für eure Hilfe. Heribert
Sub drucken()
Range("B2:J43").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$J$43"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B47:J88").Select
ActiveSheet.PageSetup.PrintArea = "$B$47:$J$88"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub