VBA - Druck mehrerer selektierter Reiter
27.01.2017 09:28:37
Gecko
ich möchte in einem Dokument auf der Seite Grunddaten über einen Button verschiedene Reiter ausdrucken lassen. Es werden Reiter ausgeblendet, wenn in einer bestimmten Zelle "NEIN" steht. Dieses geschieht auch im Hintergrund, da "Blattregister anzeigen" in den Optionen abgewählt wurde.
Mein Problem ist es, dass ich die Reiter vorher durchsuchen lasse, ob diese "angezeigt" werden sollen (da Application.ScreenUpdating = False, werden die ja nicht wirklich angezeigt) und danach nur die Reiter ausgedruckt werden sollen, die noch "sichtbar" sind. Dieses dann nicht jeweils mit einem Druck, sondern als ein Gesamtdruck.
Hier mein Makro, was auch ganz gut funktioniert, nur wir immer jeder Reiter einzeln ausgedruckt und nicht ein Gesamtdruck von z.B. 16 Reitern. Im unteren Bereich mit ' seht ihr was ich bisher ausprobiert habe.
Sub Drucken()
Dim i As Integer
Application.ScreenUpdating = False
For i = 4 To Sheets.Count
Sheets(i).Visible = True ' damit erstmal wieder alle Reiter eingeblendet werden
Next
For i = 4 To Sheets.Count
If Sheets(i).Cells(2, 21) = "NEIN" Then
Sheets(i).Visible = False ' damit die überflüssigen Reiter ausgeblendet werden
End If
Next
For i = 4 To Sheets.Count
If Sheets(i).Visible = True Then
Sheets(i).Select ' damit die richtigen Reiter ausgewählt werden
' SelectedSheets.PrintOut
' Selection.PrintOut
' Application.Dialogs(8).Show
' Sheets(i).PrintOut ' preview:=True
End If
Next
End Sub
Ich hoffe, einer von euch hat noch ne Idee dazu :-)
Danke schonmal vorab
Gecko