aktuell nutze ich folgendes Makro um einen definierten Zellbereich im Tabellenblatt 1 zu drucken.
With .PageSetup
.Zoom = False
.PrintArea = "$A$1:$H$84"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
.PageSetup.PrintArea = False
End With
Wie erweitere ich dieses jedoch um folgende Funktion:
Wenn im Tabellenblatt 1, Zelle O1 gleich Wahr ist soll nicht nur das Tabellenblatt 1 wie oben aufgeführt gedruckt werden. Sondern auch Tabellenblatt2 mit dem gleichen Zellbereich des ersten Tabellenblatts gedruckt wird.
(Hinweis: Wenn O1 gleich Falsch, wird nur das erste Tabellenblatt wie oben aufgeführt ausgedruckt. )
Danke!