- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]动态打印打不上呢 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64592)
-- 发布时间：2015/2/25 9:18:00
-- [求助]动态打印打不上呢
动态打印打不上呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:维修汇总.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("单号") & "\'>"