动态打印打不上呢
a
代码
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()