主题：[求助]excel报表打印后直接关闭不要提示保存

改成这样

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
App.Visible = True
Ws.PrintPreview
App.Quit

上面是打印预览，直接打印，改成

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
Ws.PrintOut
App.Quit