Setting print range with macro
 

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!

Setting print range with macro
 

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!

Setting print range with macro
 

Thanks Tom,
I got something to work by looking at the recorder....next question what
do I put in so that the user can't see it jump to the sheet and do all the
page setup....is there a way to have it just sit at the front sheet while it
is doing it's work in the background?...Thanks again.

"Tom Ogilvy" wrote:

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!

Setting print range with macro
 

With Worksheets("Sheet3").PageSetup


End With


rather than

With Activesheet.PageSetup

and take out any activate or select commands

--
Regards,
Tom Ogilvy


"Deeds" wrote in message
...
Thanks Tom,
I got something to work by looking at the recorder....next question
what
do I put in so that the user can't see it jump to the sheet and do all the
page setup....is there a way to have it just sit at the front sheet while
it
is doing it's work in the background?...Thanks again.

"Tom Ogilvy" wrote:

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!

Setting print range with macro
 

Thanks much! Works.

"Tom Ogilvy" wrote:

With Worksheets("Sheet3").PageSetup


End With


rather than

With Activesheet.PageSetup

and take out any activate or select commands

--
Regards,
Tom Ogilvy


"Deeds" wrote in message
...
Thanks Tom,
I got something to work by looking at the recorder....next question
what
do I put in so that the user can't see it jump to the sheet and do all the
page setup....is there a way to have it just sit at the front sheet while
it
is doing it's work in the background?...Thanks again.

"Tom Ogilvy" wrote:

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!