- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于数据打印问题，根据表内“打印份数”打印数据行内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179384)
-- 发布时间：2022/8/20 22:28:00
-- [求助]关于数据打印问题，根据表内“打印份数”打印数据行内容
有个疑问？
数据表里面的数据需要打印。
选择数据表行数据，点击打印按钮后。套入设置的excel打印模板。将每一行数据按打印份数打印。打印后“打印状态”数据为"已打印"。没有打印的数据则默认为“未打印”。
打印出来的内容纸张显示打印序号；
打印后，记录打印内容，每行数据每打印一份，在打印记录表上插入一行数据，另外添加打印序号。
[此贴子已经被作者于2022/8/20 23:02:27编辑过]
-- 发布时间：2022/8/20 23:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据打印.table |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:格式1.xls |
附件。有大神指导吗？
[此贴子已经被作者于2022/8/20 23:01:32编辑过]
-- 发布时间：2022/8/21 20:46:00
--
参考：http://www.foxtable.com/webhelp/topics/1145.htm
设置窗口，添加一个按钮，按钮代码大概
With Tables("数据打印表")
For i As Integer = .TopPosition To .BottomPosition
.Position = i
For j As Integer = 1 To .Rows(i)("打印份数")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\格式1.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\格式1_" & .Rows(i)("物料编码") & j & ".xls"
Book.Build() \'生成细节区
Book.Save( fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
Dim r As Row = Tables("打印记录表").AddNew
r("已打印物料编码") = .Rows(i)("物料编码")
Next
Next
End With