Abfrage vor dem Drucken
04.10.2004 11:35:22
Marcl
ich möchte vor jedem Druck des Blattes eine Abfrage machen.
Es soll auf jeden Fall immer vor dem Drucken die Abfrage kommen, egal, wie man zum Drucken gelangt.
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