Pagina printen per regel

[Albatros]

Hoi,

Ik heb een controle-verslag, in excel 2007, met per regel een foto. Nu wil ik dit standaard uitprinten, maar ook per foto-regel op één pagina. Dit laatste lukt mij niet, omdat het aantal foto-regels kan verschillen.
In de bijlage heb ik twee macro’s staan, die dan nog “verbeterd” moeten worden. Wie kan mij helpen?

(Ik wilde het bestand in de bijlage als .xlsm toevoegen, maar dat was niet mogelijk)
Albatros

 

[HSV]

Probeer deze eens.

Sub tst()
On Error Resume Next
With Sheets(1)
For i = 10 To 19
For Each cl In Cells(i, 1)
cl.EntireRow.PrintOut
Next
Next
End With
End Sub

 

[Warme bakkertje]

Test

Sub print_per_pag()
For i = 11 To Cells(Rows.Count, 2).End(xlUp).Row
    Cells(i, 9).Select
    With ActiveSheet
        .HPageBreaks.Add ActiveCell
        .VPageBreaks.Add ActiveCell
    End With
Next
End Sub

 

[Albatros]

Hoi,

Geweldig!

Zowel de makro van HSV en warme bakkertje werken perfect! mijn dank hiervoor! :thumb: :thumb:
Nu nog even uitvogelen of er een voorkeur is, bij een eventuele foutieve invulling door de gebruiker. Zowel de foto, als kolom B en C, zijn altijd ingevuld.
Reacties zijn altijd welkom, anders sluit ik deze topic vanavond.

Albatros