Herbers Excel-Forum - das Archiv

Wie sehe ich ob Druckvorschau abgebrochen

Bild

Betrifft: Wie sehe ich ob Druckvorschau abgebrochen
von: Peter

Geschrieben am: 13.12.2006 23:21:11
Hallo
Ich programmierte eine Druckvorschau :
ActiveWindow.SelectedSheets.PrintPreview
Wie kann ich sehen, ob diese Druckvorschau abgebrochen wurde, oder ob gedruckt worden ist ?
Ich bitte um eine baldige Antwort - Peter
Bild

Betrifft: AW: Wie sehe ich ob Druckvorschau abgebrochen
von: Uwe Küstner
Geschrieben am: 14.12.2006 07:23:36
Hallo Peter,
so gehts:
MsgBox Application.Dialogs(xlDialogPrintPreview).Show
Gruß Uwe
Bild

Betrifft: AW: Wie sehe ich ob Druckvorschau abgebrochen
von: Peter

Geschrieben am: 15.12.2006 01:29:04
Hallo
ja.. mit 'MsgBox Application.Dialogs(xlDialogPrint).Show'
wird mir 'Wahr' oder 'Falsch' angezeigt.
Nun wie kann ich das VBA mässig verwerten ?
Weil es geht nicht : if Application.Dialogs(xlDialogPrint).Show = true then ...
Wie mache ich das ??
Bis bald - Peter
Bild

Betrifft: AW: Wie sehe ich ob Druckvorschau abgebrochen
von: Uwe Küstner

Geschrieben am: 15.12.2006 01:45:09
Hallo Peter,
vielleicht reden wir ja aneinander vorbei oder Deine Brille ist schon zu alt. ;-)
Bei mir war nie die Rede von "Application.Dialogs(xlDialogPrint).Show"!
Also noch einmal:
Sub X()
If Application.Dialogs(xlDialogPrintPreview).Show = True Then
MsgBox "Es wurde was gedruckt."
Else
MsgBox "Druck wurde abgebrochen."
End If
End Sub
Gruß Uwe
Bild

Betrifft: Vielen Dank - war noch am ausprobieren !
von: Peter

Geschrieben am: 15.12.2006 04:10:09
Hallo Uwe
Ja stimmt, ich war halt beim 'ausprobieren' bei xlDialogPrint 'gelandet'.
Ich bin erstaunt das ich es nicht selber hinbekommen habe, ich hatte einen ähnlichen Lösungsansatz versucht.
Dein Lösungsansatz funktioniert perfekt.
Danke nochmals - Gute Nacht - Peter.
 Bild
Excel-Beispiele zum Thema "Wie sehe ich ob Druckvorschau abgebrochen"
Druckvorschau gem. Kontrollkästchen-Auswahl