Automatische Seitenvorschau vor dem Drucken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Automatische Seitenvorschau vor dem Drucken
von: Marco
Geschrieben am: 25.09.2003 14:04:22

Hallo,

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
Bild


Betrifft: AW: Automatische Seitenvorschau vor dem Drucken
von: andre
Geschrieben am: 27.09.2003 21:21:21

hallo marco,
1)
das makro wird sowohl vor dem drucken als auch vor oder nach ?? der seitenvorschau ausgeführt. eventuell musst du eine globale variable setzen, die du am anfang abfragst.
z.b.
Public varDruck%

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If varDruck > 2 Then varDruck = 0
varDruck = varDruck + 1
If varDruck = 1 Then
    intfrag = MsgBox("Passen Sie bitte die Seitenzahl und das Layout an!", vbOKCancel, "Drucken?")
    If intfrag <> 6 Then
        Cancel = True
    End If
 ActiveSheet.PrintPreview
End If
End Sub

2)
schaue mal in die hilfe, thema ereignis, Ereignisse des Application-Objekts
WorkbookBeforePrint-Ereignis
Tritt ein, bevor eine beliebige Arbeitsmappe gedruckt wird.
gruss andre


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Automatische Seitenvorschau vor dem Drucken"