Druckseitenauswahl + Druckerauswahl

Bild

Betrifft: Druckseitenauswahl + Druckerauswahl
von: Tim
Geschrieben am: 17.06.2015 13:36:05

Hallo Experten,
ich möchte gerne in einem Registerblatt definieren, welche Register ausgedruckt werden sollen. Hierzu habe ich auch bereits was im Netz gefunden:

Sub SelectSheetsPrintOut()
 Dim arrSheets As String, i As Integer
   For i = 2 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
      If Sheets(1).Cells(i, 2).Value = "X" Then
         arrSheets = arrSheets & Sheets(1).Cells(i, 1).Value & ","
      End If
    Next
    arrSheets = Left(arrSheets, Len(arrSheets) - 1)
   Worksheets(Split(arrSheets, ",")).PrintOut
 End Sub
Nun möchte ich aber beim Ausführen auch einen Drucker auswählen können (also wie das Druckmenü). Wie kann ich so etwas zusammenführen?
Danke im Voraus.

Bild

Betrifft: AW: Druckseitenauswahl + Druckerauswahl
von: Sepp
Geschrieben am: 17.06.2015 19:03:47
Hallo Tim,
das würde ich z. B. so lösen.
https://www.herber.de/bbs/user/98271.xlsm

Gruß Sepp


Bild

Betrifft: AW: Druckseitenauswahl + Druckerauswahl
von: Tim
Geschrieben am: 18.06.2015 11:31:12
Super. Läuft. Hilft mir weiter. Danke!!!!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Excel speichern unter Auswahlmöglichkeit?"