Drucken ohne beforePrint Menü ?
Stephan
Ich steh grad aufm Schlauch. Ihr könnt mir sicher helfen.
Ich will folgendes: Beim Drucken soll vorher abgefragt werde, ob alle Blätter oder nur das ausgewählte gedruckt werden sollen.
Wenn ich den folgenden Code eingebe, erscheint mein Workbook_beforeprint Makro bei jedem Tabellenblatt neu. Wie kann ich das unterdrücken ? Mit DisplayAlerts = false hab ich es schon probiert.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
a = MsgBox("Alle Blätter drucken ?", vbYesNoCancel, Druckmenü)
Select Case a
Case 6
For g = 1 To Sheets.Count
Sheets(g).PrintOut
Next g
Case 7
ActiveSheet.PrintOut
End Select
End Sub
DANKE FÜR EURE HILFE
Stephan
Anzeige