Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Workbook_BeforePrint

Workbook_BeforePrint
reinhardt
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Workbook_BeforePrint
28.07.2011 14:33:57
Tino
Hallo,
Du müsstest vor dem ausdruck die Events abstellen.
z. Bsp so. (nicht getestet)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim a$, b$, c%, d%
If ActiveSheet.Name = "Formular" Then
Cancel = True
a = "Anzahl ? "
b = "Ausdruck"
c = 3
d = InputBox(a, b, c, 9000, 7000)
Application.EnableEvents = False
ActiveWindow.SelectedSheets.PrintOut Copies:=d, Collate:=True
Application.EnableEvents = True
End If
End Sub
Gruß Tino
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige