以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel 报表打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88175)
--  作者：ljh29206
--  发布时间：2016/7/28 11:37:00
--  excel 报表打印

        Dim Book As New XLS.Book ("E:\\Attachments\\aaa.xlsx")

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        sheet（1,1).value = "1"

        Book.Save("c:\\reports\\test.xlsx") \'保存工作簿
        Dim Proc As New Process \'打开工作簿
        Proc.File = "c:\\reports\\test.xlsx"
        Proc.Verb = "Print" \'指定动作
        Proc.Start()

 

打印 完毕后 ，老提示  需要保存excel  才能退出。

 

这个有没办法 不让它提示这个信息 直接打印？
--  作者：Hyphen
--  发布时间：2016/7/28 11:55:00
--  
1，模板有没有用到什么宏或者Excel函数

2.换个方式

Dim Book As New XLS.Book ("E:\\Attachments\\aaa.xlsx")

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        sheet（1,1).value = "1"

        Book.Save("c:\\reports\\test.xlsx") \'保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\\reports\\test.xlsx")

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

 

Wb.Saved = True
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示

 

Ws.PrintOut

App.Quit