feste und variable Spalten drucken

Sub druck()
Dim r1 As Range
Dim r2 As Range
Dim letzte_Spalte As Variant
Dim Wiederholungen As Variant
letzte_Spalte = Range("S1").End(xlToLeft).Column
For Wiederholungen = P1 To letzte_Spalte
Set r1 = Range("A1:B87")
Set r2 = Range(Cells(1, Wiederholungen), Cells(87, Wiederholungen))
Set myMultiAreaRange = Range(r1, r2)
myMultiAreaRange.PrintOut
Next
End Sub

Doch leider funktioniert es nicht ganz so. Es wird auf jeder Seite immer eine zusätzliche Spalte ausgedruckt, so dass die Anzahl der Spalten kontinuierlich wächst. :-(
Es wäre sehr schön, wenn mir jemand helfen könnte.