Leider bekomme ich dies nur mit einer Variablen hin.
Wäre nett, wenn mir jemand helfen könnte.
Hier mein Quellcode.
Private Sub CommandButton1_Click()
nb = InputBox("Anzahl der Kopien : ", "Druckblatt", 1)
If IsNumeric(nbS) Then
For i = 1 To Val(nb) Step 1
' Me.PrintOut
Dim xlOldPrinter As String
Rem Standarddrucker merken
xlOldPrinter = Application.ActivePrinter
Rem Standarddrucker wiederherstellen
Application.ActivePrinter = xlOldPrinter
Next i
End If
End Sub