Drucken
23.01.2019 15:10:19
Danioela
ich habe folgendes Anliegen zum Thema Drucken:
Ich möchte ein aktuelles Tabellenblatt ausdrucken.
Passt alles auf eine Seite soll entsprechend ein Blatt gedruckt werden.
Ist es aber mehr als eine Seite soll der Bereich A57:H81 auf jedem Fall als separate Seite gedruckt werden.
für die Einzelseite verwende ich bisher:
Private Sub CommandButton3_Click()
Worksheets("Blatt").Activate
With ActiveSheet
.PrintOut Copies:=1
End With
End Sub
Für die mehreren Seiten verwende ich bisher:
Private Sub CommandButton2_Click()
With ActiveSheet.PageSetup
.PrintArea = "A2:H35" 'Druckbereich 1
End With
ActiveSheet.PrintOut
With ActiveSheet.PageSetup
.PrintArea = "B56:H81" 'Druckbereich 2
End With
ActiveSheet.PrintOut
End Sub
Kann man beides als ein Step kombinieren, das VBA das quasi selbst erkennt ob ein oder zwei Seiten zu drucken sind ?
Vielen Dank für Tipps und Anregungen!
MfG
Anzeige