以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态打印打不上呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64592)
--  作者：anxue
--  发布时间：2015/2/25 9:18:00
--  [求助]动态打印打不上呢
动态打印打不上呢

a
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:维修汇总.xlsx


代码

DataTables.Save
DataTables("维修汇总").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\\维修汇总.xlsx") \'打开模板
Dim fl As String = ProjectPath & "Reports\\维修汇总.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(8,10).Value = "<单号 = \'" & Tables("维修单").current("单号") & "\'>"
Book.Build() \'生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
--  作者：有点甜
--  发布时间：2015/2/25 9:20:00
--  
Sheet(7,10).Value = "<单号 = \'" & Tables("维修单").current("单号") & "\'>"