- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 超市小piao样式 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148162)
-- 发布时间：2020/4/1 11:14:00
-- 超市小piao样式
学的不精，这种怎么写呢。
麻烦老师给指点下。
此主题相关图片如下：11111111111111111111111111111.png
此主题相关图片如下：11111111111111111111111111111.png超市购物小票。
-- 发布时间：2020/4/1 11:16:00
--
怎么把名称一行
数量和金额 一行
看了 专业报表， 没有学太明白
这种样式老是写不出来
麻烦给指点下。谢谢
-- 发布时间：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() \'预览
-- 发布时间：2020/4/1 11:46:00
--
绑定到表、
准备打印相关列
名称 数量和 金额这三列
样式如图所示
一个商品名称 单独一行（58MM宽的纸，要不显示不全）
这个商品的 数量 和 金额 占另外一行。
然后在下个商品
名称 独立一行
数量和金额 另一行
-- 发布时间：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()
-- 发布时间：2020/4/1 14:23:00
--
一看就会，一写就费。谢谢有点蓝老师，辛苦了