Clever-Excel-Forum

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

Hallo Primo,

Code:
If Application.Dialogs(xlDialogPrinterSetup).Show Then

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

End If

Gruß Uwe

Danke Uwe :)

Einfacher als gedacht, funktioniert einwandfrei.

Wünsche dir einen schönen Abend.

Lg Primo

Primo Centurio

Kuwer

Primo Centurio