通过excel报表进行打印，打印后提示是否保存，能否取消 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过excel报表进行打印，打印后提示是否保存，能否取消

共有3610人关注过本帖树形打印复制链接主题：通过excel报表进行打印，打印后提示是否保存，能否取消

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1361 积分：12049 威望：0 精华：0 注册：2012/3/5 11:32:00

通过excel报表进行打印，打印后提示是否保存，能否取消 发帖心情

Post By：2014/4/24 14:14:00 [只看该作者]

Dim dt As Table = Tables("CAF库存表")
dt.Filter=""
dt.Select(0,0,dt.Rows.Count-1,0)
Dim Book As New XLS.Book(ProjectPath & "Attachments\盘点汇总piao.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\盘点汇总piao.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
proc.Verb ="Print"
Proc.Start()

代码以上

通过excel报表进行打印，打印后提示是否保存，能否取消这个对话框，由于我是循环打印，每次都弹出来很烦人！！！！