BeforePrint mit Grafik
09.11.2005 11:40:04
Thomas
Mit folgendem Code frage ich ab, ob alle Seiten gedruckt werden sollen oder nicht. Klapt bei einem jungfräulichen Sheet perfekt.
Wenn ich aber eine Grafik eingefügt habe, stürzt Ecxel immer ab! Wieso?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim AntwortMsg
Dim iBlatt As Byte
On Error GoTo Errorhandler
Cancel = True
AntwortMsg = MsgBox("Alle Blätter drucken ?", vbYesNoCancel, "Druckmenü")
If AntwortMsg = vbCancel Then Exit Sub
Application.EnableEvents = False
If AntwortMsg = vbYes Then
For iBlatt = 1 To Sheets.Count
Sheets(iBlatt).PrintOut
Next iBlatt
Else
ActiveSheet.PrintOut
End If
Errorhandler:
Application.EnableEvents = True
End Sub
Bin dankbar um Eure Hilfe
Danke
Thomas