Foxtable(狐表)用户栏目专家坐堂 → [求助]标签纸打印


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

主题:[求助]标签纸打印

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


加好友 发短信
等级:幼狐 帖子:187 积分:2262 威望:0 精华:0 注册:2011/6/22 20:16:00
[求助]标签纸打印  发帖心情 Post By:2017/7/27 10:10:00 [只看该作者]

请教一下,现有一卷纸的宽度为104mm的标签纸,一行为两个标签,第个标签的宽度分别为50,高度为10,左右边距为2mm,两个标签的间距为2mm,行郭跃为2mm,想通过内部表A批量打印员工一维码(员工号),请教一下代码。

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


加好友 发短信
等级:版主 帖子:42968 积分:215921 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/27 10:14:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:187 积分:2262 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/7/27 12:00:00 [只看该作者]

每行打两个标签,但不是相同的内容,是依据表A的内容去取的,还真不太会,麻烦帮助下

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


加好友 发短信
等级:版主 帖子:42968 积分:215921 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:40 积分:412 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By: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() '预览报表
请问哪句控制列数的?


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


加好友 发短信
等级:版主 帖子:42968 积分:215921 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 22:24:00 [只看该作者]

你要添加多少内容,你就添加多少下面的代码

 

    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)


 回到顶部