Need macro to define print area after filter is run

Header of 13 rows and rows for data is 14 to 148.
Have print area set to A1 – Q148
Filter on column Q for >0
Need a macro to select only the filtered rows and define the right hand cell of the bottom row up to A1 as the print area (so I only have one page of print if less than a page of data)?
Thanks