Set PrintArea Not Working

B

bw

What are the problems here?

The first gets an error on execution: "Unable to set the PrintArea
property of the PageSetup class"
1). ActiveSheet.PageSetup.PrintArea = Range(Cells(LastRow - 24, 1),
Cells(LastRow + 1, 12))

The second just doesn't work (doesn't set the PrintArea to the range in
question).
2. Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)).Select
ActiveSheet.PageSetup.PrintArea =
ActiveCell.CurrentRegion.Address

Can someone provide an answer to both questions?
 
J

JMay

the Printarea property requires a "String" data type,
the address property returns a string..

example:
ActiveSheet.PageSetup.PrintArea = Range(Cells(3, 2), Cells(8,
4)).Address
 
B

bw

Thank you sir!
That fixed the problem.
Bernie



JMay said:
the Printarea property requires a "String" data type,
the address property returns a string..

example:
ActiveSheet.PageSetup.PrintArea = Range(Cells(3, 2), Cells(8,
4)).Address
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

set PageSetup.PrintArea from MS Project 1
Set print area problem 6
macro print area 11
Puzzling printarea code 2
variable print area? 4
PrintArea Macro Help 1
Compile error, Variable not defined 4
Runtime Error 1004 when runing Sub() from btnClick 2

Top