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