Als Antwort auf diesen Beitrag
Sub DruckeMarkierteSeiten()
Const k As Long = 3 'Zeilen pro Druckseite
Dim i As Long
With Worksheets("Druckvorlage")
For i = 1 To 4 'Schleife durch Druckseiten
.Rows(i * k - k + 1).Resize(k).Hidden = (.Cells(i * k - k + 1, 3).Value <> "Drucken")
Next i
On Error Resume Next
.Rows(1).Resize((i - 1) * k).SpecialCells(xlCellTypeVisible).PrintOut Preview:=True
If Err Then MsgBox "Es wurde keine Auswwahl getroffen!", vbInformation
On Error GoTo 0
.Rows.Hidden = False
End With
End Sub
Gruß, Uwe