bonnetje printen

[doemaarwat]

Ik wil graag een bonnetjes printen van verschillende lengtes.
Maar krijg dit niet voor elkaar alles wat ik probeer loopt verkeerd af.
Ik heb een apart blad voor het bonnetje gemaakt hierheen kopieer ik de gegevens van het bonnetje tot zover gaat het goed.
Het bonnetje bestaat uit 4 kolommen het aantal rijen verandert steeds.
Maar op de een of andere manier krijg ik het niet voor elkaar om een variabele waarden aan printout toe te kennen

Worksheets("Sheet1").PageSetup.PrintArea = ("A1"), ("D" & Target.Row)

Wat doe ik niet goed of fout

Groetjes Harry

 

[Wigi]

Waarschijnlijk bedoel je dit:

With Worksheets("Sheet1")
    .PageSetup.PrintArea = Range("A1:D" & .Range("A" & Rows.Count).End(xlUp).Row).Address
End With

 

[doemaarwat]

dank u

Dank u dit werkt precies zoals ik bedoelde alleen beter telt ook nog.

 

[danny147]

Beste doemaarwat

Gelieve dan de vraag op opgelost te zetten, onderaan rechts.

Groetjes Danny. :thumb: