以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用按钮实现Excel报表打印，打印结束时总是提示是否保存？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75049)
--  作者：lyzhuo
--  发布时间：2015/9/25 11:28:00
--  用按钮实现Excel报表打印，打印结束时总是提示是否保存？
不知道是Excel报表哪里设置错误了，以前没有出现此种情况，请教高手查错。
--  作者：大红袍
--  发布时间：2015/9/25 12:03:00
--  

不要用proc打开，用vba打开

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
App.Visible = True
--  作者：lyzhuo
--  发布时间：2015/9/25 15:43:00
--  
出现这个原因是因为我在设计Excel报表时合并单元格了吗？
--  作者：lyzhuo
--  发布时间：2015/9/25 15:49:00
--  
我用这个功能是打印后，直接自动关闭Excel，VBA可以直接关闭吗？
--  作者：大红袍
--  发布时间：2015/9/25 15:59:00
--  

你可以用vba直接打印报表。

 

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
app.Visible = True
Ws.PrintPreview
\'ws.printout
app.quit
--  作者：lyzhuo
--  发布时间：2015/9/25 16:06:00
--  
谢谢大红袍版主，问题已经解决了。