Makro Bitte mit Druckanzahl ergänzen
05.07.2006 08:37:27
Heinz
Habe unten ein Druckmakro das auch funktioniert.
Ich würde es gerne noch mit der Druckanzahl erweitern.
Also wo ich dann noch die Anzahl der Druckexemplare eingeben kann.
Zb."3" das mir dann 3 Kopien gedruckt werden.
Könnte mir Bitte dabei jemand helfen ?
Danke Heinz
Private Sub CommandButton1_Click()
MsgBox "Bitte vorher den Drucker festlegen. Drucker: D231 (NRG DSm622 PLC 6)"
Application.Dialogs(xlDialogPrinterSetup).Show
Dim a%
a = MsgBox("Sind Sie wirklich absolut sicher?", vbYesNoCancel + vbQuestion, "Really?")
If a = 6 Then Sheets("Termine").PrintOut Copies:=1, Collate:=True
End Sub