loop down the sheet until the formula are not producing values that you want
printed.

then use that row to set the print range

activesheet.pageSetup.printarea = Activesheet.Range("A1:M" _
& lastrow).Address(external:=true)

--
regards,
Tom Ogilvy


"mathew" wrote in message
...
I have a spreadsheet that requires imported information from another
program.
This part works great! The sheet has a calculation range from A11 to M
3010,
with headings being in A1 to M10. All of the rows in this data range have
formulas in them because there is no telling how many rows will have data
in
them. Below this data range are more calculations, that I do not want the
user to play with, nor I can I move them. I also do not want the users,
some
of whom are not capable, to set the print range, as that has caused
several
issues. Any ideas? I'm really stuck!