Define a dynamic name, which has range equal with filtered range;
Define Print Area for your report;
Set the Print Area equal to named range defined before.

No need for VBA here!