Print Visible Cells after Filtering

[nniedzielski]

When I try to print only the visible cells after filtering,it prints one row per page, instead of all on one page. If there is no filter on it prints correctlyall on one page.

This is my code:

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("C7:M" & FinalRow).Rows.SpecialCells(xlCellTypeVisible).Address
ActiveSheet.PrintOut]

thanks

 

[Akuini]

Without using 'SpecialCells(xlCellTypeVisible)' works for me (print only visible row), try this:

finalrow = Cells(Rows.count, 3).End(xlUp).Row
Range("C2:M" & finalrow).PrintOut