After re-reading what I had written:

. . . it would be therefore easy to hardcopy set the LastRow as
710, so the resulting Printarea code would be:

Range(Cells(1, 1), Cells(710, LastColumn)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address

--as for setting  the macro up on the template, it would make more
sense to me to have it on the same workbook as the code which does
the sort  in the first place, and have it fire whenever the sort is
done for each page.