Macro for hiding rows before print not working

I am having an issue with debugging

Runtime error 438
Object doesn't support this property or method

Here is my code:

Sheets("EXECUTIVE SUMMARY").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$57"
ActiveSheet.Rows("13:41").Select

ActiveSheet.Selection.EntireRow.Hidden = True

ActiveSheet.SmallScroll Down:=-12
ActiveSheet.SelectedSheets.PrintOut
ActiveSheet.Rows("12:42").Select
ActiveSheet.Selection.EntireRow.Hidden = False
ActiveSheet.SmallScroll Down:=3
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$27"

The code line that is standing alone is where my debugger is directing me towards, but I am unfamiliar enough to work this through to a working solution.

Can you/anybody be of assistance.

Thanks in advance