ListObjects Print Area Issue - There is no headings

Hi friends,
1- Open enclosed file.
2- Run Macro1.
3- Run Macro2.
4- Look printing view of page. (There is a headings)

5- Run Macro3.
6- Look printing view of page. (There is no headings)---->This is my problem.

So, I need a macro like this;

Sub Macro4()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.ListObjects(1)[#All]
End Sub

Regards