Set print area problem

[Philip Reece-Heal]

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

 

[Norman Jones]

Hi Philip,

Try:

ActiveSheet.PageSetup.PrintArea = myprint.Address

 

[Mike Fogleman]

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


Mike F

 

[Norman Jones]

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.

 

[Mike Fogleman]

You are right, my mistake. I opened my mouth without testing it first.

 

[Philip Reece-Heal]

Thanks Norman

You are a star

It worked a treat

Regards
Philip


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

 

[Philip Reece-Heal]

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

Regards
Philip