Foxtable(狐表)用户栏目专家坐堂 → excel 报表打印


  共有1937人关注过本帖平板打印复制链接

主题:excel 报表打印

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


加好友 发短信
等级:六尾狐 帖子:1361 积分:12049 威望:0 精华:0 注册:2012/3/5 11:32:00
excel 报表打印  发帖心情 Post By:2016/7/28 11:37:00 [只看该作者]

        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  才能退出。

 

这个有没办法 不让它提示这个信息 直接打印?


 回到顶部