以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]报表打印问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145176)
--  作者：huanglan
--  发布时间：2020/1/10 18:53:00
--  [求助]报表打印问题

窗口中设计了一个打印按钮，编辑代码如下：

Dim Book AsNew XLS.Book(ProjectPath& "Attachments\\出库单.xls")
Dim fl As String =ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()

打印完成后excel窗口不能自动关闭，我要怎么办？？
--  作者：有点蓝
--  发布时间：2020/1/10 20:14:00
--  
使用vba打印

Dim Book AsNew XLS.Book(ProjectPath& "Attachments\\出库单.xls")
Dim fl As String =ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
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)
Ws.PrintOut
Wb.Close
App.Quit