Dim Exmp As New Excel.Application
Dim WB As Excel.Workbook
Dim Sh As Excel.Worksheet
Set WB = Exmp.Workbooks.Open("C:\abc.xls")
Set Sh = WB.ActiveSheet
Sh.PageSetup.PrintHeadings = True
Sh.PageSetup.PrintTitleRows = "$1:$3"
WB.Save
Exmp.Visible = True
Set Exmp = Nothing
No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Unsolved 
