Afdrukbereik

[MarcSch]

Hoi,

ik heb een excel bestand waar ik een macro wil toevoegen om rijen A tot en met T af te drukken, maar enkel tot de laatst ingevulde cel in rij A.Hij zou wel alle rijen moeten afdrukken tot de laatste ingevulde cel in rij A ook als er in voorgaande cellen geen waarden zijn ingevuld.
Bijvoorbeeld
A1=10
A2=5
A3 leeg
A4=12
A5=13
A6 leeg
A7=12

In dit geval zou bereik van cellen A1 tot T7 moeten worden afgedrukt.
Kan iemand mij hier bj helpen?
Alvast bedankt!

 

[jean42]

Eerst selecteren wat je wil afdrukken en dan Bestand afdrukbereik en dan afdrukbereik bepalen nemen en dan afdrukken.

 

[Wigi]

Eerst selecteren wat je wil afdrukken en dan Bestand afdrukbereik en dan afdrukbereik bepalen nemen en dan afdrukken.

De vraagsteller wenst een macro vermoed ik...

 

[Wigi]

Werkt dit?

Sub afdrukken()
    With ActiveSheet
        .PageSetup.PrintArea = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Address
        .PrintOut
    End With
End Sub

Wigi

 

[jean42]

De vraagsteller wenst een macro vermoed ik...

Dat is juist, dit had ik niet gelezen.

 

[MarcSch]

Dit werkt wel maar alleen kolom A wordt nu afgedrukt, kan je me vertellen hoe ik rijen
A:T afgedrukt krijg tot laatst ingevulde cel in kolom A.

Bedankt!!

 

[Wigi]

Zo:

Sub afdrukken()
    With ActiveSheet
        .PageSetup.PrintArea = Range("A1:[B]T[/B]" & Range("A" & Rows.Count).End(xlUp).Row).Address
        .PrintOut
    End With
End Sub

Wigi

 

[MarcSch]

Bedank hoor werkt perfect !!!