主题：通过excel报表进行打印，打印后提示 是否保存，能否取消

Dim dt As Table = Tables("CAF库存表")
dt.Filter=""
dt.Select(0,0,dt.Rows.Count-1,0)
Dim Book As New XLS.Book(ProjectPath & "Attachments\盘点汇总piao.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\盘点汇总piao.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
proc.Verb ="Print"
Proc.Start()

代码以上

通过excel报表进行打印，打印后提示 是否保存，能否取消这个对话框  ，由于我是循环打印，每次都弹出来 很烦人！！！！