Print Various Populated Rows From Different Worksheets Onto The Same Page

stickyfeet · Sep 30th 2006

Hi

I'm trying to print populated rows from 5 different worksheets.

I can get them to print out onto 5 different sheets of A4 but would ideally like them to print underneath each other (continous and use less paper) as some times one sheet may only have one populated row.

This is what I currently use. Thanks for any help.

Code

Application.ScreenUpdating = False


Dim printer1 As Range
Dim printer2 As Range
Dim printer3 As Range
Dim printer4 As Range
Dim printer5 As Range


Sheets("xxxx").Select
Set printer1 = ActiveSheet.Range("a9", Range("i65536").End(xlUp))


Sheets("xxxx").Select
Set printer2 = ActiveSheet.Range("a7", Range("i65536").End(xlUp))


Sheets("xxxx").Select
Set printer3 = ActiveSheet.Range("a7", Range("i65536").End(xlUp))


Sheets("xxxx").Select
Set printer4 = ActiveSheet.Range("a7", Range("i65536").End(xlUp))


Sheets("xxxx").Select
Set printer5 = ActiveSheet.Range("a7", Range("i65536").End(xlUp))


Sheets("xxxx").Select


printer1.PrintOut
printer2.PrintOut
printer3.PrintOut
printer4.PrintOut
printer5.PrintOut

Display More

xlite · Sep 30th 2006

Re: Print Various Populated Rows From Different Worksheets Onto The Same Page

hi Stickyfeet,

have a look at this thread:
http://www.ozgrid.com/forum/showthread.php?t=58025
it compiles data from other sheets into one summary sht.

from there on you can send it out to print.
i don't have any printer at home, so can't help out much there

hope this helps

stickyfeet · Sep 30th 2006

Re: Print Various Populated Rows From Different Worksheets Onto The Same Page

Thanks xlite, will do.

Regards

Print Various Populated Rows From Different Worksheets Onto The Same Page

Participate now!

Share