[求助]关于数据打印问题，根据表内“打印份数”打印数据行内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于数据打印问题，根据表内“打印份数”打印数据行内容

共有6790人关注过本帖树形打印复制链接主题：[求助]关于数据打印问题，根据表内“打印份数”打印数据行内容

mrlua88

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：60 积分：828 威望：0 精华：0 注册：2015/1/8 20:57:00

[求助]关于数据打印问题，根据表内“打印份数”打印数据行内容 发帖心情

Post By：2022/8/20 22:28:00 [只看该作者]

有个疑问？

数据表里面的数据需要打印。

选择数据表行数据，点击打印按钮后。套入设置的excel打印模板。将每一行数据按打印份数打印。打印后“打印状态”数据为"已打印"。没有打印的数据则默认为“未打印”。

打印出来的内容纸张显示打印序号；

打印后，记录打印内容，每行数据每打印一份，在打印记录表上插入一行数据，另外添加打印序号。

[此贴子已经被作者于2022/8/20 23:02:27编辑过]

mrlua88

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：60 积分：828 威望：0 精华：0 注册：2015/1/8 20:57:00

Post By：2022/8/20 23:01:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据打印.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:格式1.xls

附件。有大神指导吗？

[此贴子已经被作者于2022/8/20 23:01:32编辑过]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)("物料编码")

End With

下一主题 >> << 上一主题

主题：[求助]关于数据打印问题，根据表内“打印份数”打印数据行内容