AW: Nur bestimmte Blätter drucken
19.10.2007 14:08:00
fcs
Hallo Ede,
hier das Makro um die ausgefüllten Blätter gruppiert zu drucken, anzupassende Zeilen sind markiert.
Gruß
Franz
Sub AuswahlDrucken()
'Druckt mehrere Blätter entsprechend Kriterium
Dim arrBlatt() As String, Kriterium As String, DruckerAktiv As String
Dim iI As Integer, iZeile As Integer, Bereich As Range
'Bereich mit Blattnamen und Kriterium (Linke Spalte Name, recht Kriterium)
Set Bereich = Worksheets("Deckblatt").Range("A5:B30") '###Zeile ggf. anpassen
Kriterium = "ausgefüllt"
'zu druckende Blätter in Feld einlesen
iI = 1
ReDim arrBlatt(1 To iI)
For iZeile = 1 To Bereich.Rows.Count
If Bereich(iZeile, 2) = Kriterium Then
ReDim Preserve arrBlatt(1 To iI)
arrBlatt(iI) = Bereich(iZeile, 1)
iI = iI + 1
End If
Next
If arrBlatt(1) "" Then
'Aktiven Drucker merken
DruckerAktiv = Application.ActivePrinter
'PDF-Drucker wählen
Application.ActivePrinter = "Adobe PDF auf Ne01:" '###Zeile ggf. anpassen
ActiveWorkbook.Sheets(arrBlatt).PrintOut
'Drucker zurücksetzen
Application.ActivePrinter = DruckerAktiv
Else
MsgBox "Keine Blätter für Druck gewählt!"
End If
End Sub