Select the area you want printed, then do File=PrintArea = Set Print Area

programmatically

set rng = Range("AB50").CurrentRegion
activesheet.pageSetup.Printarea = rng.Address(external:=True)

Change AB50 to the cell that forms the top left corner of the data you want
to print.

--
Regards,
Tom Ogilvy

"Jerry B" wrote in message
...
I have filtered the number of rows and copied them to a separate area of
the
worksheet. The number of rows after the filter is unknown. How do I
change
the Print Area range of rows to be the number of rows after the filter
(otherwise I will print pages and pages of paper)

Thanks,
--
Jerry B