Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1596to1600
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
Button zum Drucken, mit Auswahl Drucker
13.12.2017 12:05:00
Patrick
Hallo,
durch klicken auf einen Button, möchte ich gerne eine Auswahl treffen, welche Tabellenblätter gedruckt werden sollen.
Dies habe ich auch soweit hinbekommen
Private Sub CommandButton3_Click()
Sheets(Array("Index", "Help")).PrintOut
End Sub
Nun möchte ich aber, bevor er die Tabellenblätter druckt,
dass ich den Drucker auswählen kann. Dieser kann leider immer verschieden sein, sodass ich kein festen Drucker im Makro hinterlegen kann.
Wie kann ich das realisieren?
Danke.
Gruß
Patrick

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

Betreff
Datum
Anwender
Anzeige
AW: Button zum Drucken, mit Auswahl Drucker
13.12.2017 12:28:51
Rudi
Hallo,
Private Sub CommandButton3_Click()
Dim p As String
p = ActivePrinter
With Application.Dialogs(xlDialogPrinterSetup)
If .Show = -1 Then
Sheets(Array("Index", "Help")).PrintOut
ActivePrinter = p
End If
End With
End Sub
Gruß
Rudi
AW: Button zum Drucken, mit Auswahl Drucker
13.12.2017 12:41:27
Patrick
Perfekt, vielen Dank!
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige