Microsoft Excel

Herbers Excel/VBA-Archiv

Printer Dialog - Abbrechen geht nicht

Betrifft: Printer Dialog - Abbrechen geht nicht von: Frederik Fuhrmann
Geschrieben am: 07.09.2004 09:03:06

Guten Morgen!

Ich öffne vor dem drucken eine Druckerauswahl, will aber in dem Fall, dass "Abbrechen" angeklickt wird den Sub beenden.

So funktioniert es allerdings nicht:

If (Application.Dialogs(xlDialogPrinterSetup).Show) = vbCancel Then
Exit Sub
End If

Kann mir jemand helfen?

Gruß
Frederik

  


Betrifft: AW: Printer Dialog - Abbrechen geht nicht von: Axel
Geschrieben am: 07.09.2004 12:14:22

Hallo Frederik,

die Methode liefert lediglich True (bei Ok) oder False (bei Abbrechen) zurück.

So funktioniert es also:



If (Application.Dialogs(xlDialogPrinterSetup).Show = FalseThen
   Exit Sub
End If

     Code eingefügt mit Syntaxhighlighter 2.5


Bitte auch die geänderte Klammersetzung beachten.

Gruß
Axel


  


Betrifft: AW: Printer Dialog - Abbrechen geht nicht von: Frederik Fuhrmann
Geschrieben am: 07.09.2004 12:38:22

Hallo Axel!

Super, vielen Dank!


Gruß
Frederik


 

Beiträge aus den Excel-Beispielen zum Thema "Printer Dialog - Abbrechen geht nicht"