Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")

 Dim fl As String = ProjectPath & "Reports\\出库单.xls"

 Book.Build()    ‘已生成了xls

 Book.Save(fl)  

 Dim App As New MSExcel.Application

 Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

 Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

 App.Visible = True

 

 

 \'设置 不显示警告信息对话框， 这样设置了“打印设置或页边距”后不会提示保存了EXCEL

 App.DisplayAlerts = False

   

 Ws.PrintPreview

 App.Quit

 ‘删除EXCEL,但还是有漏洞，用户可以使用只读的方式打开EXCEL再另存后操作

 If FileSys.FileExists(fl) Then \'如果指定的文件存在

     FileSys.DeleteFile(fl,2,2)  

 End If

 

 能否有方法实现 直接在内存在生成EXCEL，硬盘中根本不生成文件，用户看不到EXCEL也就保证了打印的安全性。