Private Sub Workbook_BeforePrint
08.01.2008 11:04:00
Frederik
Wieso wird mir die Seite nach dem u.a. Makro 2 x ausgedruckt?
Habe doch extra vor ende des subs "cancel = tue" geschrieben.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo fehler
Application.ActivePrinter = "\\dc04\LP74 auf Ne10:"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
Application.ActivePrinter = "\\dc02\LP07 auf Ne02:"
Cancel = True
Exit Sub
fehler:
MsgBox "Bei der Einstellung des Druckers ist ein Fehler aufgetreten!" & vbLf & _
"Bitte prüfen Sie, ob der Drucker auf Ihrem PC angelegt ist (Start, Drucker & Faxgeräte).", _
vbOKOnly + vbCritical
End Sub
Gruß
F.