Dialogfenster xlDialogPrinterSetup
25.02.2004 16:24:24
Andreas Jaun
Ich schreibe gerade einen Code, um mittels CommandButton in einer Userform automatisch gewisse Bereiche eines Blattes auszudrucken:
Worksheets(5).PageSetup.PrintArea = _
Worksheets(5).Name & "!" & _
Range(Cells(1, 1), Cells(i, 7)).Address
Application.Dialogs(xlDialogPrinterSetup).Show
Worksheets(5).PrintOut
Dabei ist es für die User (welche diese Userform verwenden) hilfreich, dass sie durch eine Dialogbox den Drucker auswählen können ("xlDialogPrinterSetup").
Ich frage mich nun: Wie kann ich obigen Code ändern, dass nicht gedruckt wird, wenn der User die Dialogbox schliesst (mit x oder "abbrechen") und nicht "OK" drückt? Dies ist im Moment nämlich der Fall - und Papier ist bekanntlich ein knappes Gut :-)
Wäre cool, wenn mir jemand weiterhelfen kann!
Grüsse
aj