Here is some code which works but not not be the most elegant solution:

Range("A1:N50").Select
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Selection.PrintOut Preview:=True

Note: the preview option can be deleted if not required.

"JMay" wrote:

Don:

What if either range "extends beyond one page due to column-width
settings being changed"? Is there a way to set each to Auto
FitToOnePage?

Thanks,

Jim May

"Don Guillett" wrote in message
:

Or even
Range("A1:N50").PrintOut
Range("A51:N90").PrintOut

--
Don Guillett
SalesAid Software

"Gleam" wrote in message
...
I find tools /macro /record new macro very useful.
Here is what it gives for a similar problem

Range("A1:B2").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A3:E5").Select
Selection.PrintOut Copies:=1, Collate:=True

This can be simplified to
Range("A1:N50").PrintOut Copies:=1, Collate:=True
Range("A51:N90").PrintOut Copies:=1, Collate:=True


"jay dean" wrote:


This macro will set the page up such that the page will print as two
pages...
Range("A1:N50") will print as one page, and
Range("A51:N90") will print as the second page.

**Please, I will NEED a macro for numerous reasons.

Any help will be appreciated! Thanks

Jay


*** Sent via Developersdex http://www.developersdex.com ***