ich möchte den Tabellenbereich B2:J111 ausdrucken, der auf 2 Seiten dargestellt werden soll.
Wie kann ich das per VBA erledigen?
Danke für eure Hilfe
LG Ina
Public Sub Drucken()
With ActiveSheet.PageSetup
.PrintArea = "B2:J111"
.Zoom = False
.FitToPagesTall = 2
.FitToPagesWide = 1
End With
Call Range("B2:J111").PrintOut
End Sub
Gruß
Public Sub Drucken()
With ActiveSheet.PageSetup
.PrintArea = "B2:J55"
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Call Range("B2:J55").PrintOut
With ActiveSheet.PageSetup
.PrintArea = "B58:J111"
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Call Range("B58:J111").PrintOut
End Sub
Gruß