if you set it to print 1 page wide by 2 pages tall, your pagebreak will be
ignored (unless that just happens to be where it would calculate the
pagebreak.

activesheet.PageSetup.PrintArea = range("A1:Q154").Address(True,True,,True)

You can get the rest by doing pagesetup with the macro recorder turned on.
In looking at the recorded code, you only want to execute settings you
actually need.

--
Regards,
Tom Ogilvy


"Deeds" wrote in message
...
I am trying to clear a sheet of all print range and page breaks...then set
the print range and tell it where to page break both vertical &
horizontal.
Can someone please give me basic code for setting the print range and
adjusting the page breaks. Print range: A1:Q154 and the page break must
be
set to row 96. 1page wide by 2 pages tall. Thanks in advance!