Foxtable(狐表)用户栏目专家坐堂 → piao据打印问题


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

主题:piao据打印问题

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


加好友 发短信
等级:婴狐 帖子:37 积分:516 威望:0 精华:0 注册:2014/5/24 20:35:00
piao据打印问题  发帖心情 Post By:2015/4/2 16:39:00 [只看该作者]

一个凭证表,一个明细 表,两者关联。希望用窗体打印方式打印。可以将凭证表数据绑定到标签控件上,问题是如何将明细表中数据绑定到窗体控件上?明细表中有多行数据!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 16:40:00 [只看该作者]

 直接放一个明细表进去。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/2 16:41:00 [只看该作者]

表也是可以打印的,直接放个表控件

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


加好友 发短信
等级:婴狐 帖子:37 积分:516 威望:0 精华:0 注册:2014/5/24 20:35:00
  发帖心情 Post By:2015/4/2 16:52:00 [只看该作者]

直接放明细表进去后,金额部分如何分解?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 16:53:00 [只看该作者]

以下是引用flagcat在2015/4/2 16:52:00的发言:
直接放明细表进去后,金额部分如何分解?

 

什么意思,分解是什么意思?具体例子说明


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


加好友 发短信
等级:婴狐 帖子:37 积分:516 威望:0 精华:0 注册:2014/5/24 20:35:00
  发帖心情 Post By:2015/4/2 21:35:00 [只看该作者]

分解问题搞定了,就是分成元角分各个数字。我是增加了各个位数作为表的列,当金额输入完后用函数分解的。
现在的问题是,打印时,表格的边框不要打印出来 ,这个怎么设置?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/2 21:50:00 [只看该作者]

 打印代码这样写

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*table*" Then
        c.Style.GridLines.All = Nothing '将网格线类型设为默认类型
    End If
Next

doc.Preview()


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


加好友 发短信
等级:婴狐 帖子:37 积分:516 威望:0 精华:0 注册:2014/5/24 20:35:00
  发帖心情 Post By:2015/4/2 22:28:00 [只看该作者]

太感谢了!现在可以了

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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2015/4/3 9:16:00 [只看该作者]

如果行号和标题都不打印出来 代码怎么写 谢谢

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/4/3 9:20:00 [只看该作者]

e.Form.Controls("Table1").Table.Grid.Rows(0).Height = 0
e.Form.Controls("Table1").Table.Grid.Cols(0).visible = False

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*table*" Then
        c.Style.GridLines.All = Nothing '将网格线类型设为默认类型
    End If
Next

doc.Preview()

e.Form.Controls("Table1").Table.Grid.Rows(0).Height = 20
e.Form.Controls("Table1").Table.Grid.Cols(0).visible = True


 回到顶部