Foxtable(狐表)用户栏目专家坐堂 → [求助] 打印单据


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

主题:[求助] 打印单据

帅哥哟,离线,有人找我吗?
Liuxinyu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1645 威望:0 精华:0 注册:2012/1/4 13:13:00
[求助] 打印单据  发帖心情 Post By:2021/11/18 17:29:00 [只看该作者]

请教大师:
按下面的代码打印单据,仅单据数量与选择行相符,但是单据号都是第一张的单据号,全部单据内容相同,需要如何修正?

Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.Current
    Dim chk As WinForm.CheckBox = Forms("存货明细").Controls("CheckBox2")
    Dim sq As String = "[出入类型] = '" & r("出入类型") & "' AND [单据号] = '" & r("单据号") & "'"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\采购入库单.xls")
    Dim fl As String = ProjectPath & "Reports\采购单.xls"
    book.AddDataTable("存货账","ERP","Sel ect * from {存货账} where " & sq)
    Book.Build()
    Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
    Book.Sheets(0).PrintSetting.CenterVertical = True
    Book.Sheets(0).PrintSetting.CenterHorizontal = True
    'Book.Sheets(0).PrintSetting.PrintHeaders = True
    Book.Save(fl)
    Dim Proc As New Process
    Proc.File = fl
    If chk.Checked Then
        Proc.Verb = "Print" '指定动作
    End If
    Proc.Start()
Next

tb.Focus
Return "OK"

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/18 17:37:00 [只看该作者]

Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.rows(nr)

 回到顶部
帅哥哟,离线,有人找我吗?
Liuxinyu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1645 威望:0 精华:0 注册:2012/1/4 13:13:00
  发帖心情 Post By:2021/11/19 14:04:00 [只看该作者]

你好!将此条
Dim r As Row = tb.Current
更改为
Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.rows(nr)

结果仍然没有改变。还请提供解决方法

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/19 14:55:00 [只看该作者]

我测试没有问题,请上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
Liuxinyu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1645 威望:0 精华:0 注册:2012/1/4 13:13:00
  发帖心情 Post By:2021/11/19 18:45:00 [只看该作者]

你好!
  我将上述过程放在函数中,每张单据的内容不同,但单据号码不变,如何解决?


案例:

[此贴子已经被作者于2021/11/22 8:48:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2021/11/19 22:52:00 [只看该作者]

没有道理不行啊, 做个例子发上来测试吧

 回到顶部
帅哥哟,离线,有人找我吗?
Liuxinyu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1645 威望:0 精华:0 注册:2012/1/4 13:13:00
  发帖心情 Post By:2021/11/22 15:14:00 [只看该作者]

附件上传后,怎么没有显示

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/22 15:24:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

多试几次直到输入框有上传的链接,另外注意单个文件不能超过2M

 回到顶部
帅哥哟,离线,有人找我吗?
Liuxinyu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1645 威望:0 精华:0 注册:2012/1/4 13:13:00
[求助] 打印单据  发帖心情 Post By:2021/11/23 19:28:00 [只看该作者]

示例
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单据打印案例.zip


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/23 20:54:00 [只看该作者]

2个问题
1、模板使用了直接引用的用法(http://www.foxtable.com/webhelp/topics/1395.htm),这种用法仅适用已经加载的表格,取的是已经加载的表格的数据,和后台数据无关
2、这种模板,不适合单表的输出,会有问题的。应该是关联表的方式,类似这种:http://www.foxtable.com/webhelp/topics/0204.htm。页首行和页尾行应该是从父表取数据

 回到顶部
总数 11 1 2 下一页