Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")



xlApp.Visible = True



xlApp.Workbooks.Open "D:\myworkbook.xls", True, False

xlApp.Sheets("SayfaAdıBuraya").Select

xlApp.ActiveSheet.PrintOut

xlApp.Workbooks.Close

xlApp.Quit

Set xlApp = Nothing