Exit Sub nach Abbrechen von Fenster (Drukervorschau)

[Primo Centurio]

Hallo zusammen

Mit folgendem Code 

Code:

Application.Dialogs(xlDialogPrinterSetup).Show

 
rufe ich die verfügbaren Drucker auf und Drucke mit dem Code

Code:

ActiveSheet.PrintOut Copies:=1, Collate:=True

das entsprechende Blatt.

Nun habe ich das Problem, dass er den Druck ausführt obwohl ich beim Fenster (PrinterSetup) auf abbrechen drücke.
Wie muss da der Code lauten, damit er den Sub beendet resp. verlässt?


Lg Primo

[Kuwer]

Hallo Primo,

Code:

If Application.Dialogs(xlDialogPrinterSetup).Show Then
  ActiveSheet.PrintOut Copies:=1, Collate:=True
End If

Gruß Uwe

[Primo Centurio]

Danke Uwe :)

Einfacher als gedacht, funktioniert einwandfrei.

Wünsche dir einen schönen Abend.

Lg Primo