afdrukbereik dynamisch via 'pagina-eindevoorbeeld-macro'

[Peekhamer]

Ik heb een blad waar via een macro meerdere blokken geplaatst kunnen worden (via macro). Nu 'rekt' het pagina-einde niet mee naar beneden zeg maar, waardoor je dat telkens handmatig moet aanpassen als je wilt afdrukken.

Afdrukbereik werkt niet want dan komt hij langs een samengevoegde cel waardoor hij meer mee gaat nemen dan ik wil. Is het mogelijk het "pagina-einde-voorbeeld" via macro te beïnvloeden, en zo ja, hoe moet ik dat dan noemen?

Googlen levert me eigenlijk alleen afdrukbereik op..

 

[Peekhamer]

niemand?

 

[Peekhamer]

heb ik de vraag onduidelijk gesteld?

of is dit iets te simpels voor woorden?

 

[huijb]

@Peekhamer Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[Peekhamer]

OK dankje!

Kan iemand me op weg helpen?

 

[Peekhamer]

heel voorzichtig upje??

 

[Peekhamer]

Ik heb m opgelost op een manier die voor mij werkt.

=TEKST.SAMENVOEGEN("I1:A";AANTALARG(A1:A250))

en in de afdrukmacro:

ActiveSheet.PageSetup.PrintArea = Range("J2").Value

Opgelost.

Had ook nog dit gevonden maar kreeg dat niet werkend.
KLIK

 

[Warme bakkertje]

Wat levert je deze op ?

Sub tst()
    With ActiveSheet
        .PageSetup.PrintArea = .Range("A1:I" & .Cells(.Rows.Count, 1).End(xlUp).Row).Address
    End With
End Sub