| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]标签纸打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104307) |
| -- 作者：ymjr2011 -- 发布时间：2017/7/27 10:10:00 -- [求助]标签纸打印 请教一下，现有一卷纸的宽度为104mm的标签纸，一行为两个标签，第个标签的宽度分别为50，高度为10，左右边距为2mm,两个标签的间距为2mm,行郭跃为2mm,想通过内部表A批量打印员工一维码（员工号），请教一下代码。 |
| -- 作者：有点甜 -- 发布时间：2017/7/27 10:14:00 -- 参考
http://www.foxtable.com/webhelp/scr/1186.htm
http://www.foxtable.com/webhelp/scr/1949.htm
http://www.foxtable.com/webhelp/scr/2093.htm
|
| -- 作者：ymjr2011 -- 发布时间：2017/7/27 12:00:00 -- 每行打两个标签，但不是相同的内容，是依据表A的内容去取的，还真不太会，麻烦帮助下 |
| -- 作者：有点甜 -- 发布时间：2017/7/27 12:20:00 -- Dim doc As New PrintDoc \'定义一个报表 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 For Each r As Row In Tables("表b").rows Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Width = 53 \'宽度53毫米 ra.Height = 24 \'高度24毫米 ra.Style.Spacing.All = 1 ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) \'设置边框 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止垂直分割 Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中 rt = New prt.RenderText rt.Text = "姓名:" rt.X = 2 rt.Y = 2 ra.Children.Add(rt) \'添加到容器中 rt = New prt.RenderText rt.Text = r("第一列") rt.X = 15 rt.Y = 2 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "职务:" rt.X = 2 rt.Y = "Prev.Bottom + 2" \'垂直坐标位于迁移对象之下的2毫米 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("第二列") rt.X = 15 rt.Y = "Prev.Top" \'垂直坐标和前一对象相同 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "编号:" rt.X = 2 rt.Y = "Prev.Bottom + 2" ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("第三列") rt.X = 15 rt.Y = "Prev.Top" ra.Children.Add(rt) Next Doc.Preview() \'预览报表 |
| -- 作者：xxfoxtable -- 发布时间：2017/10/12 21:49:00 -- 以下是引用有点甜在2017/7/27 12:20:00的发言： Dim doc As New PrintDoc \'定义一个报表 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式 For Each r As Row In Tables("表b").rows Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Width = 53 \'宽度53毫米 ra.Height = 24 \'高度24毫米 ra.Style.Spacing.All = 1 ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) \'设置边框 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never \'禁止水平分割 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止垂直分割 Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中 rt = New prt.RenderText rt.Text = "姓名:" rt.X = 2 rt.Y = 2 ra.Children.Add(rt) \'添加到容器中 rt = New prt.RenderText rt.Text = r("第一列") rt.X = 15 rt.Y = 2 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "职务:" rt.X = 2 rt.Y = "Prev.Bottom + 2" \'垂直坐标位于迁移对象之下的2毫米 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("第二列") rt.X = 15 rt.Y = "Prev.Top" \'垂直坐标和前一对象相同 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "编号:" rt.X = 2 rt.Y = "Prev.Bottom + 2" ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("第三列") rt.X = 15 rt.Y = "Prev.Top" ra.Children.Add(rt) Next Doc.Preview() \'预览报表 请问哪句控制列数的？
|
| -- 作者：有点甜 -- 发布时间：2017/10/12 22:24:00 -- 你要添加多少内容，你就添加多少下面的代码
rt = New prt.RenderText |