Abfrage vor dem Drucken
01.10.2004 07:54:28
Marcl
ich möchte vor jedem Druck des Blattes eine Abfrage machen.
Habe an folgendes gedacht:
Private Sub Worksheet_beforeprint()
frage = MsgBox("Datenstand eigegeben?", vbYesNo)
If frage = 7 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Will aber nicht so ganz funzen.
Was habe ich falsch gemacht?
Gruß
Marcl
Anzeige