Iedere rij apart printen op A4

[MasterCaster]

Ik ben op het werk bezig met het maken van een onderhoudsschema. Nu is het de bedoeling dat er, na gebruik van een filteroptie, iedere rij apart wordt geprint op een A4.
Dit kan de ene week bv 6 rijen zijn en een week daarop 18.

Hoe los ik dit op?

Er wordt gewerkt met Excel 2000.

 

[HSV]

Bv.

Sub tst()
On Error Resume Next
  With Sheets(1)
   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     For Each cl In Cells(i, 1)
    cl.EntireRow.PrintPreview  'maak van PrintPreview , PrintOut
   Next
  Next
 End With
End Sub

 

[MasterCaster]

Ok,

Ik zal de VBAkode a.s dinsdag invoeren en proberen. Mocht dit goed zijn, zet ik de vraag als zijn de opgelost en anders kom ik er dinsdagavond weer op terug.

Dank voor je hulp !