Druckfunktion in VBA - wie abbrechen?
Peter
Mich plagt ein kleines Problem - habe mich ein wenig in VBA versucht, um eine Druckfunktion für meine Cockpitcharts auf Knopfdruck anzubieten. Das drucken und auf die Auswahl des Druckers aus der Liste aller verfügbaren Drucker ist kein Problem.
Jedoch stört mich ein Punkt an meinem Makro, den ich nicht behoben bekomme:
Drückt man im Druckerauswahl-Menü auf "Cancel", wird trotzdem mit dem Standarddrucker gedruckt, man kann also nicht abbrechen. Bin für jeden Hinweis dankbar, was im Code fehlt.
Merci im Voraus!
Peter
Anbei der Code:
Sub PrintAllCPC()
On Error Resume Next
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets(Array("CPC Overview", "CPC LOG", "CPC FIN", "CPC CCC")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Control Centre").Activate
End Sub