Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckfunktion in VBA - wie abbrechen?

Druckfunktion in VBA - wie abbrechen?
Peter
Einen guten Morgen an alle!
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Druckfunktion in VBA - wie abbrechen?
30.03.2010 11:57:14
Luschi
Hallo eter
so sollte es funktionieren:

Sub PrintAllCPC()
On Error Resume Next
Dim dps As Boolean
dps = Application.Dialogs(xlDialogPrinterSetup).Show
If Not dp Then
''Abbrechen' wurde gedrückt
Exit Sub
End If
Sheets(Array("CPC Overview", "CPC LOG", "CPC FIN", "CPC CCC")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Control Centre").Activate
End Sub
Zur Erklärung:
dps hat den Wert 'True', wenn 'OK' gedrückt wurde und 'False', wenn 'Abbrechen' gedrückt wurde.
Gruß von Luschi
aus klein-Partis
AW: Druckfunktion in VBA - wie abbrechen?
30.03.2010 12:01:52
Peter
Genial, vielen vielen Dank!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige