Makro durckt trotz Abbruch
01.02.2013 13:27:07
Peter
ich habe mir nachfolgendes Makro aus dem Forum geholt. Funkt auch so weit, aber wenn ich beim Dialog zur Druckerauswahl auf "Abbrechen" gehe, wird trotzdem gedruckt. Wie kann ich das unterbinden ?
Danke für euere Unterstützung.
Gruß Peter
Sub Print_Jahr()
Application.Dialogs(xlDialogPrinterSetup).Show
With ActiveSheet.PageSetup
.PrintArea = "d5:BL182" 'Druckbereich 1
.CenterHeader = "XXXXXX: Gesamtumsatz lfd. Jahr"
.Orientation = xlLandscape
End With
Application.PrintCommunication = True
ActiveSheet.PrintOut
End Sub