Automatische Seitenvorschau vor dem Drucken
25.09.2003 14:04:22
Marco
ich möchte gerne nach dem Drücken des Drucker-Icon oder des Menü-Eintrags Drucken vor dem Ausdruck die Seitenansicht automatisch öffnen und nochmal darauf hinweisen, dass das Layout angepasst wird. Dazu verwende ich derzeit folgendes Makro:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
intfrag = MsgBox("Passen Sie bitte die Seitenzahl und das Layout an!", vbOKCancel, "Drucken?")
If intfrag <> 6 Then
Cancel = True
End If
ActiveSheet.PrintPreview
End Sub
Zwei Probleme gibt es noch zu lösen:
- die MsgBox wird zweimal geöffnet. Wie kann ich das verhindern?
- ich möchte das ganze als Add-In verwenden. Wenn ich dieses Makro als Add-In verwende funktioniert es so nicht. Was muss ich ändern, damit es nicht nur für die aktuelle Arbeitsmappe gilt, sondern für jede Excel-Datei, die geöffnet wird?
Danke!
Gruß
Marco