Print until last used row in a range

**MariaPap** · 11-22-2013, 11:08 AM

Hi there

I have a sheet with reports getting using an advanced filter.

What i would like is a macro that will print all the data that exist in columns A:E, UNTIL the last used cell of column A.

Thank you in advance for any suggestion.

**alansidman** · 11-22-2013, 11:15 AM

Try this:

Sub PrintRange()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Dim rng As Range
    Set rng = Range("A1:E" & lr)
    rng.PrintOut
 
End Sub

**MariaPap** · 11-22-2013, 11:44 AM

Thank you Alan. Works perfectly.

May i ask for something else if it's possible?

Is possible to the last row of eatch printed page to count the number of the page and print it?

Something like --Page 1-- , --Page2-- etc....?

**alansidman** · 11-22-2013, 11:54 AM

Why not set it up in your layout so that it prints in the footer.

http://office.microsoft.com/en-us/ex...010269060.aspx

**MariaPap** · 11-25-2013, 05:58 AM

Apologize for the delay in my reply. We had Nnternet conection problem.

Alan Thank you. It's easy when you know how to do this!

Print until last used row in a range

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Print until last used row in a range

Re: Print until last used row in a range

Re: Print until last used row in a range

Re: Print until last used row in a range

Re: Print until last used row in a range

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Need ‘Set Print Area’ Code for Dynamic Print Range based on Conditions

[SOLVED] Automatically Print Once Dynamic Print Range is Identified

VBA to set print range, open box asking for print qty, print, then redefine print area

Print Titles with Dynamic Print Range

[SOLVED] Can you get the range reference for each page in a worksheet print range?

Bookmarks

Bookmarks

Posting Permissions