Druck abfangen u. kein Druckfenster
25.02.2005 07:58:39
Stefan
ich möchte gern den Ausdruck abfangen und eine msgbox einblenden. Funktioniert auch. Nur sobald in der msgbox auf OK gedrückt wird, erscheint danach doch noch das Druckfenster. Kann man das unterbinden ?
Danke für Eure sachdienlichen Hinweise.
Gruß und schönes Wochenende
Stefan
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Brief" Then
If Sheets("Start").[Z1] <> "369" Then
MsgBox "Sie befinden sich in der Testumgebung." & Chr(10) & "Ein Ausdruck ist hier nicht möglich !"
Exit Sub
End If
End If
End Sub
Anzeige