Mit VBA mehrere Tabellenblätter drucken

Hallo,
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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim arrWks, wks If Range("O2") = "Wahr" Then arrWks = Array(Sheets("Tabelle1"), Sheets("Tabelle2")) Else arrWks = Array(Sheets("Tabelle1")) End If For Each wks In arrWks With wks.PageSetup .Zoom = False .PrintArea = "$A$1:$H$84" .Orientation = xlPortrait .PaperSize = xlPaperA4 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.Dialogs(xlDialogPrint).Show wks.PageSetup.PrintArea = False Next End Sub

Hi,
so wie hier ist es nun fast perfekt, doch eine kleine Änderung würde ich mir noch wünschen. Kann mir hierbei bitte einer weiter helfen?
Bei dem Befehl "ActiveWorkbook.Printout" wird die ganze Mappe direkt an den Standard Drucker versendet.
Ich hätte aber hier gerne die Drucker Abfrageseite die ich z. B. sonst über xLDialogPrint.Show einblenden kann. Wie bekomme ich das in diesem Fall der zwei Tabellenblätter hin?
If [O1] = "Wahr" Then
Worksheets("Tabelle2").Visible = True
Sheets(Array("Tabelle2", "Tabelle1")).Select
ActiveWorkbook.PrintOut , preview:=True
With .PageSetup
.Zoom = False
.PrintArea = "$A$1:$H$84"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Else
Worksheets("Tabelle2").Visible = False
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
End If

Beliebteste Forumthreads (12 Monate)

Mit VBA mehrere Tabellenblätter drucken

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VBA mehrere Tabellenblätter drucken

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread