[求助]我excel打印直接后台通过数据和excel模板组合起来直接打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

模板打印函数

--------------------------------------

Dim mb As String = args(0)

Dim tf As String = args(1)

Dim pns As String = args(2)

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()

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(ActivePrinter:=pns)

App.Quit

------------------------------------

调用代码

ElseIf e.Form.Controls("rbMB").Checked = True '一个模版对应多个记录

For Each s As String In s_mb.Split("|")

'MessageBox.Show("打印模版:" & s )

For Each r As Row In rs

' MessageBox.Show("打印模版:" & s & ",孔号=" & r("孔号") )

' MessageBox.Show(r("孔号"))

Functions.Execute("根据施工记录对应整合查询记录",r)

tn = tn + 1

Functions.Execute("模版打印", Vars("projectMbFiles") & s , ProjectPath & "temp\temp" & tn & ".xls" ,pns )

End If

----------------------------------------

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1111.xlsx

主题：[求助]我excel打印直接后台通过数据和excel模板组合起来直接打印问题