Druck-Abbrechen funkioniert nicht!

Sub Jahresturnus_print_januar() Application.ScreenUpdating = False Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show With Sheets("rwkru") 'Druckbereich festlegen: .PageSetup.PrintArea = "$A$3:$AF$17" 'Drucken: .PrintOut 'Druckbereich aufheben: .PageSetup.PrintArea = "" End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jahresturnus_print_januar() Application.ScreenUpdating = False Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show If Druckerwahl = False Then Exit Sub With Sheets("rwkru") 'Druckbereich festlegen: .PageSetup.PrintArea = "$A$3:$AF$17" 'Drucken: .PrintOut 'Druckbereich aufheben: .PageSetup.PrintArea = "" End With End Sub

HI
weil bei dir im Makro der befehl


.PrintOut

steht. der wird auf jeden Fall ausgeführt.
das "Abbrechen", das du klickst, bezieht sich nur auf den Drucken-Dialog den du öffnest, danach läuft das Makro unabhängig von deiner Auswahl weiter
was du machen kannst, ist die Variable "Druckerauswahl" abfragen.
diese hat den Wert WAHR, wen ein Drucker gewählt wurde und FALSCH, wenn abgebrochen wurde.
das musst du im Makro dann mit einer IF-Abfrage prüfen:
Sub Jahresturnus_print_januar()
Dim Druckerwahl
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
If Druckerwahl Then
With Sheets("rwkru")
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$3:$AF$17"
'Drucken:
.PrintOut
'Druckbereich aufheben:
.PageSetup.PrintArea = ""
End With
End If
End Sub
Gruß, Daniel

Hi
was du nimmts , ist im Prinzip egal.
Tinos Mehtode funktioniert dann nicht, wenn auch bei Abbruch noch zwingend Code ausgeführt werden muss
bspw. wenn du zum Bearbeiten einstellungen änderst, wie APPLiCATION.SCREENUPDATING=FALSE, dann sollte man die bei beenden des Makros auch wieder auf den Original-Wert setzen
(was du in deinem Makro nicht gemacht hast !!!,was aber bei Application.ScreenUpdating nicht weiter schlimm ist, bei anderen Einstellungen muss man zwiingend darauf achten)
wird jetzt das Makro an irgendeiner Stelle mit EXIT SUB verlassen, passiert es leicht, daß sowas nicht beachtete wird und die veränderten Einstellungen nicht zurückgesetzt werden.
daher ist die Methode mit der IF...END IF - Klammer vorzuziehen.
Gruß, Daniel
BTW halte ich es an dieser Stelle für völlig überflüssig, die Bildschirmaktualisierung abzuschalten.

Beliebteste Forumthreads (12 Monate)

Druck-Abbrechen funkioniert nicht!

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread