Find print area when no print area set

[mcphc]

I have a worksheet that is shown in page break preview view.

The heavy blue outline shows the boundary of what is shown in a print preview.

There is no print area set. I would like a macro that would find the address
of this blue boundary and set it to the print area.

How can this be done?

Thanks

 

[JNW]

Range("A1").SpecialCells(xlLastCell).address will give you the bottom right
cell used.

 

[mcphc]

Found it!

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

So simple!

 

[JNW]

Thanks that is easy!
--
JNW

Found it!

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

So simple!