Sub M_snb()
For Each it In Columns(3).SpecialCells(2).Areas
it.Offset(, -2).Resize(3, 3).PrintOut
Next
End SubSub DruckeMarkierteSeiten()
Const k = 3 'Zeilen pro Druckseite
Dim i As Long
With Worksheets("Druckvorlage")
For i = 1 To 4
.Rows(i * k - k + 1).Resize(k).Hidden = (.Cells(i * k - k + 1, 3).Value <> "Drucken")
Next i
.Cells.SpecialCells(xlCellTypeVisible).PrintOut Preview:=True
.Rows.Hidden = False
End With
End Sub