Druck abfangen u. kein Druckfenster

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Druck abfangen u. kein Druckfenster von: Stefan K.
Geschrieben am: 25.02.2005 07:58:39

Hallo zusammen,
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

Bild


Betrifft: Beispieldatei von: Franz W.
Geschrieben am: 25.02.2005 10:22:07

Hallo Stefan,

schau mal in diese Datei rein, da wird der Druckbefehl nicht nur abgefangen, sondern ganz unterbunden, mit entsprechender MsgBox. Drucken ist nur über Button möglich.

https://www.herber.de/bbs/user/18740.xls

In alle Module der Datei reinschauen!

Grüße
Franz


Bild


Betrifft: AW: Druck abfangen u. kein Druckfenster von: Ulf
Geschrieben am: 25.02.2005 13:58:25


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 !"
'======================
Cancel = True
'======================
End If
End If
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druck abfangen u. kein Druckfenster"