[求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印

共有3163人关注过本帖树形打印复制链接主题：[求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 22:26:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\生产请购单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & Tables("表名").current("产品型号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(7,2).Value = "制单人:" & User.Name '加入制单人信息
Book.Build() '生成报表
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
'App.Visible = True
'Ws.PrintPreview

ws.PrintOut
App.Quit

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 22:27:00 [显示全部帖子]

Dim mb As String = args(0)
Dim tf As String = args(1)

Dim Book As New XLS.Book(mb) ''模版文件
Book.Build() '生成细节区

Dim fl As String = tf ''临时报表文件
Book.Save(fl) '保存文件

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
'App.Visible = True
'Ws.PrintPreview

ws.PrintOut
App.Quit

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 22:40:00 [显示全部帖子]

帮助也有，是vba的知识

http://www.foxtable.com/help/topics/2121.htm

下一主题 >> << 上一主题

主题：[求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印