Workbook_BeforePrint
reinhardt
ich möchte einfach nur beim Klick auf Drucken eine automatische Abfrage nach der Anzahl der auszudruckenden Seiten haben. Ich habe jedoch immer 2 mal den Aufruf der Inputbox.
Wer kann mir bitte helfen?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Cancel = true
If ActiveSheet.Name = "Formular" Then
Dim a, b, c, d
a = "Anzahl ? "
b = "Ausdruck"
c = "3"
d = InputBox(a, b, c, 9000, 7000)
ActiveWindow.SelectedSheets.PrintOut Copies:=d, Collate:=True
End If
'Cancel = False
End Sub