Foxtable(狐表)用户栏目专家坐堂 → 打印完成后如何关掉Excel应用


  共有1380人关注过本帖树形打印复制链接

主题:打印完成后如何关掉Excel应用

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
打印完成后如何关掉Excel应用  发帖心情 Post By:2023/7/10 19:25:00 [显示全部帖子]

我在“录入窗体”上增加了一个打印按钮,该按钮的功能是打印Excel报表;
我遇到的问题是:每次打印后需要手工关掉excel(打印Word报表时也一样);
我想请教的是---可否通过代码实现打印完成后自动关掉Excel,直接回到“录入窗体”的界面?
请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/7/11 10:02:00 [显示全部帖子]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("ProjectPath & 'Attachments\预算申请单模板.xls'")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Wb.Build()
Wb.saved = True
App.DisplayAlerts = False
App.Visible = False
Ws.PrintOut(Preview:=False) 
Wb.Close
App.Quit
利用上述代码能够实现打印,但在关闭EXCEL前还有提示:是否对工作簿的保存?只有选择后才能关闭,这样才能关闭此对话框?

 回到顶部