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


  共有7079人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望: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)("物料编码")
        Next 
        
    Next
End With


 回到顶部