- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 连续流水号标签打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127016)
-- 发布时间：2018/11/3 0:18:00
-- 连续流水号标签打印
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:流水号标签.foxdb |
此主题相关图片如下：1.png
此主题相关图片如下：2.png
我想打印标签出来，例如选中第一行数据后，按钮打印标签，
标签出来有三张，大致的样式如图所示，三张标签除了箱号的位置以外，其他内容是一样的
-- 发布时间：2018/11/3 9:13:00
--
比如
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
Dim doc As New PrintDoc() \'定义一个报表
doc.PageSetting.Width = 102 \'纸张宽度为100毫米
doc.PageSetting.Height = 76 \'纸张高度为120毫米
Dim rm As prt.RenderEmpty \'定一个空对象
For i As Integer = 1 To 3
rm = new prt.RenderEmpty \'定义一个新的空对象
rm.BreakBefore = prt.BreakEnum.Page \'打印前换页
doc.Body.Children.Add(rm) \'加入到报表中
Dim rt As New prt.RenderText \'定义一个文本对象
rt.X = 10
rt.y = 10
rt.Text = r("客户") \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt = New prt.RenderText \'定义一个文本对象
rt.X = 10
rt.y = 30
rt.Text = "第: 00" & i
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
Next
Doc.Preview() \'预览报表
End If