- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]根据表单编号自动选中模板打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83036)
-- 发布时间：2016/3/30 9:20:00
-- [求助]根据表单编号自动选中模板打印
此主题相关图片如下：4.png
请问如上面的窗口，
希望在点击“一键打印”能根据不同表单编号打印出excel表单，
如上图：当点击一键打印的时候，能生成BF0001/BF0002/BF0003/BF0004的4张表单，并且记录能自动自动分别合并填入表单中；后续可能表单会很多，有没有比较方便的方式处理；
另外在table选中某一行的话，调出当前行表单编号的表单并打印当前列
另外若已经打印表单的行会有一行逻辑型，若已打印将自动显示True
附件是案例，请老师帮忙提供一下“一键打印”和“选中打印”的代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.rar |
-- 发布时间：2016/3/30 9:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.zip |
-- 发布时间：2016/3/30 10:14:00
--
老师，因为是实例，所以各个表单差异不大，若是正式的话，每一个表单内容都是不一样的，是否能根据表单编号调出对于编号的报表呢？
-- 发布时间：2016/3/30 10:16:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\BF.xls")
改成
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & bh & ".xls")
-- 发布时间：2016/3/30 10:17:00
--
比如
Dim bhs As List(Of String) = DataTables("T_Item").GetValues("表单编号", "报告编号 = \'" & Tables("T_Report").current("报告编号") & "\'")
For Each bh As String In bhs
If bh IsNot Nothing Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & bh & ".xls")
Dim fl As String = ProjectPath & "Reports\\" & bh & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
End If
Next