Trying to automate setting the print area on a sheet I use as a template and
am having problems.

The section of code is:

Set myprint = Range(mytop, mybot)
myprint.Select
ActiveSheet.PageSetup.PrintArea = myprint

While the required area is selected on screen OK, the last line gives me a
Run-time error '1004: Unable to set the PrintArea property of the PageSetup
class.

Have tried some alternatives but I'm stumped.

Any help would be appreciated

Regards
Philip

Hi Philip,

Try:

ActiveSheet.PageSetup.PrintArea = myprint.Address



---
Regards,
Norman



"Philip Reece-Heal" wrote in message
...
Trying to automate setting the print area on a sheet I use as a template
and am having problems.

The section of code is:

Set myprint = Range(mytop, mybot)
myprint.Select
ActiveSheet.PageSetup.PrintArea = myprint

While the required area is selected on screen OK, the last line gives me a
Run-time error '1004: Unable to set the PrintArea property of the
PageSetup class.

Have tried some alternatives but I'm stumped.

Any help would be appreciated

Regards
Philip

How are your variables declared? If myprint is a range, try:
ActiveSheet.PageSetup.PrintArea = Range(myprint)


Mike F

"Philip Reece-Heal" wrote in message
...
Trying to automate setting the print area on a sheet I use as a template
and am having problems.

The section of code is:

Set myprint = Range(mytop, mybot)
myprint.Select
ActiveSheet.PageSetup.PrintArea = myprint

While the required area is selected on screen OK, the last line gives me a
Run-time error '1004: Unable to set the PrintArea property of the
PageSetup class.

Have tried some alternatives but I'm stumped.

Any help would be appreciated

Regards
Philip

Hi Mike,

How are your variables declared? If myprint is a range, try:
ActiveSheet.PageSetup.PrintArea = Range(myprint)

If myprint is a range, then the expression Range(myprint) would generate an
error.

Additionally, the PrintArea property requires an address string.

---
Regards,
Norman

You are right, my mistake. I opened my mouth without testing it first.
"Norman Jones" wrote in message
...
Hi Mike,

How are your variables declared? If myprint is a range, try:
ActiveSheet.PageSetup.PrintArea = Range(myprint)

If myprint is a range, then the expression Range(myprint) would generate
an error.

Additionally, the PrintArea property requires an address string.

---
Regards,
Norman

Thanks Norman

You are a star

It worked a treat

Regards
Philip


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

Thanks to you both, that's cracked my problem.

Regards
Philip
"Philip Reece-Heal" wrote in message
...
Trying to automate setting the print area on a sheet I use as a template
and am having problems.

The section of code is:

Set myprint = Range(mytop, mybot)
myprint.Select
ActiveSheet.PageSetup.PrintArea = myprint

While the required area is selected on screen OK, the last line gives me a
Run-time error '1004: Unable to set the PrintArea property of the
PageSetup class.

Have tried some alternatives but I'm stumped.

Any help would be appreciated

Regards
Philip