Maybe:

With ActiveSheet
.PageSetup.PrintArea = .Range("A1").CurrentRegion.Address
end with

JB2010 wrote:

Hi

Can someone list the full script i would need for a macro that would
highlight all the non blank cells of a worksheet & set that as the print area.

I have tried recording my own, basically; highlight Cell A1, Ctrl+Shift Down
then Control+Shift Right, but the resulting script is still specific to the
cell references of the sheet i used to record on.

I do not know how to program it for just all active cells regardless of what
they are, from sheet to sheet.

Any help gratefully recieved.

Cheers

jb

--

Dave Peterson