- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想点按钮后就直接打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165295)
-- 发布时间：2021/5/12 19:52:00
-- 想点按钮后就直接打印
If Tables("进销存").Current.Locked = False Then
MessageBox.show("单据未审核","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\进销存.xls")
Dim f As String = e.Form.Controls("ComboBox2").value
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(f)
App.Visible = True
Ws.Print()
App.Quit
上面的代码预览出来了，我现在想点打印就直接打印，这样怎写呢？？？？
-- 发布时间：2021/5/12 19:56:00
--
已解决
-- 发布时间：2021/5/12 20:20:00
--
使用App.Quit
此主题相关图片如下：qq截图20210512201919.png
还是不能关闭EXCEL表
造成重复打印重一张
-- 发布时间：2021/5/12 20:22:00
--
此主题相关图片如下：qq截图20210512202126.png
直接关闭文件也不能，需要怎样做呢
-- 发布时间：2021/5/13 8:50:00
--
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(f)
Ws.Printout()
App.Quit