Workbook_BeforePrint
15.05.2006 12:12:26
Tino
vielleicht könnt ihr mir helfen.
Möchte bevor ich aus einer Exceldatei Drucke noch eine abfrage einbauen
(Inputbox)nun mein Problem ist, beim drücken auf Abbrechen wird diese Seite
dennoch gedruckt.
Also wie kann ich den Druckauftrag abbrechen?
Bsp.:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim abfrage As String
abfrage = InputBox("Test", "nur ein Test")
If abfrage = "" Then
'Druckauftrag abbrechen
MsgBox "Druckauftrag wurde abgebrochen", vbCritical, "nicht gedruckt"
End If
End Sub
Danke für Eure Hilfe
Gruss
Tino
Anzeige