Sub markierten_Bereich_drucken()
Dim letzte_Zeile As Long, Wiederholungen As Long
letzte_Zeile = Range("A65536").End(xlUp).Row
For Wiederholungen = 2 To letzte_Zeile
[B]Range(Cells(Wiederholungen, 1), Cells(Wiederholungen, 3)).PrintOut Copies:=1, Collate:=True[/B]
Next
End Sub