Set PrintArea Not Working

[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?

 

[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

 

[bw]

Thank you sir!
That fixed the problem.
Bernie

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