以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68232)
--  作者：a937775799
--  发布时间：2015/5/12 22:24:00
--  [求助]我这个代码打印excel模版程序总是会显示启动excel，我能不能不显示excel，在后台直接打印
 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 Proc As New Process \'打开工作簿
Proc.File = fl
proc.Verb="Print"
Proc.Start()
--  作者：大红袍
--  发布时间：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
--  作者：大红袍
--  发布时间：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
--  作者：a937775799
--  发布时间：2015/5/12 22:39:00
--  
 这个好，，但是帮助里面怎么没有压，就快完工了 哈哈
[此贴子已经被作者于2015/5/12 22:39:32编辑过]
--  作者：大红袍
--  发布时间：2015/5/12 22:40:00
--  

帮助也有，是vba的知识

 

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