Foxtable(狐表)用户栏目专家坐堂 → 超市小piao样式


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

主题:超市小piao样式

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


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
超市小piao样式  发帖心情 Post By:2020/4/1 11:14:00 [只看该作者]

学的不精,这种怎么写呢。
麻烦老师给指点下。
图片点击可在新窗口打开查看此主题相关图片如下:11111111111111111111111111111.png
图片点击可在新窗口打开查看

超市购物小piao。

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


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2020/4/1 11:16:00 [只看该作者]

怎么把名称一行
数量和金额 一行
看了  专业报表, 没有学太明白
这种样式老是写不出来 
麻烦给指点下。谢谢


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


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/1 11:27:00 [只看该作者]

写了什么代码?

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "名称" & vbcrlf & "  某某名称" &  vbcrlf & "数量" &  vbcrlf & "  1" &  vbcrlf & "金额" &  vbcrlf & "  5"
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

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


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2020/4/1 11:46:00 [只看该作者]

绑定到表、
准备打印相关列
名称 数量和 金额这三列


样式如图所示
一个商品名称 单独一行(58MM宽的纸,要不显示不全)
这个商品的 数量 和 金额 占另外一行。
然后在下个商品
名称 独立一行
数量和金额  另一行

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


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/1 13:36:00 [只看该作者]

参考:

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim ra As New prt.RenderArea
ra.Style.Spacing.Bottom = 2
ra.DataBinding.DataSource = BindTables("订单") '将容器绑定到订单表
ra.Style.Spacing.Bottom = 2

rt.Text= "产品:" & vbcrlf & "[Fields!产品.Value]" 
ra.Children.Add(rt)

rt = New prt.RenderText
rt.Text = "数量:[Fields!数量.Value]   金额:[Fields!金额.Value]" 
ra.Children.Add(rt)
doc.body.Children.Add(ra)
doc.Preview()

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


加好友 发短信
等级:幼狐 帖子:146 积分:1469 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2020/4/1 14:23:00 [只看该作者]

一看就会,一写就费。谢谢有点蓝老师,辛苦了

 回到顶部