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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen