Aktuell nutze ich folgendes Skript um zwei bestimmte Tabellenblätter auszudrucken.
Ich möchte das ganze aber weiter invidualisieren, so dass vor dem Druck Excel abfragen soll, "wie viele Kalkulationen sollen ausgedruckt werden?"
Der User kann dann einen Wert von 1-10 eintragen und in Abhängigkeit der Eingabe soll Excel dann das Tabellenblatt:
Bei Eingabe der Zahl 1 = Excel druckt Tabellenblatt "P1"
Bei Eingabe der Zahl 2 = Excel druckt das Tabellenblatt "P1" und "P2"
Bei Eingabe der Zahl 3 = Excel druckt das Tabellenblatt "P1", "P2" und "P3"
...
If Range("O1") = "Wahr" Then
Sheets(Array("P1", "P2")).Select
Else
Sheets("P1").Activate
End If
With .PageSetup
.Zoom = False
.PrintArea = "$A$1:$G$54"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
End If
End With