Dim XLS As New Excel.Application XLS.Workbooks.Open("C:\A1.xls") XLS.Visible = True 'XLS.ActiveWorkbook.PrintPreview() XLS.Workbooks(0).PrintOut() XLS.Quit() XLS = Nothing