Printen van iedere keer een ander deel van het tabblad

[Basbrommer]

Hallo,

Wie wil mij helpen bij maken van een macro?
Ik heb een rooster gemaakt en elke week moet daarvan een ander deel geprint worden door mijn collega's.(Lees een nieuwe week) Nu zijn de datums gebruikt als kolommen en staan ze niet onder elkaar in rijen. (zie afbeelding)
Ik heb het wel geprobeerd met de knop macro opnemen, maar daarvan verschuift niet de week elke week. Het mooiste zou zijn als mijn collega's de "Volgende Week" kunnen printen.
Hoe kan ik de juiste week selecteren (het juiste deel selecteren van het tabblad) zodat er niet 50 weken worden geprint.


Met vriendelijke groet,
Bas Immerzeel

 

[HSV]

Sub hsv()
Dim k
k = Application.Match(DatePart("ww", Now, vbMonday, vbFirstFourDays), Rows(2), 0)
 If IsNumeric(k) Then
  ActiveSheet.PageSetup.PrintArea = Cells(2, k - 1).Resize(41, 10).Address
  ActiveSheet.PrintPreview
 End If
End Sub

 

[Basbrommer]

Hoi Harry,

Hartelijk dank! Het werkt prima en ik kan hiermee goed uit de voeten.

Groet Bas