Druckseitenauswahl + Druckerauswahl
17.06.2015 13:36:05
Tim
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
Danke im Voraus.
Anzeige