Foxtable(狐表)用户栏目专家坐堂 → 请教:条形码打印能否分开打印?


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

主题:请教:条形码打印能否分开打印?

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/30 9:45:00 [显示全部帖子]

目前条形码是用专业报表打印的,就和打印一个标签一样,定位是随心所以的啊。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/30 10:05:00 [显示全部帖子]

你这样的代码就是连续打印的啊

别用数据绑定,直接编码,直接指定页面大小,直接指定对象坐标位置,想怎样都行。

你可以看看帮助中的几个关于标签打印的章节,道理一样,只不过是其中一个对象换成了条形码。
[此贴子已经被作者于2009-6-30 10:13:23编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/30 10:29:00 [显示全部帖子]

以下是引用yangming在2009-6-30 10:20:00的发言:

我就是看的标签打印,其中的编号换成了条形码,但是没有显示出条码,还是显示的是编号,晕


哈哈,那就是设置问题啊,看我这个:

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For i As integer = 1 to 100
    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Width = 50 '表格宽度为50mm
    rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
    rt.CanSplitVert = False '避免垂直换页的时候,表格被分割成两部分.
    rt.Cols(0).Width = 20
    rt.cells(0,0).Text = "姓名"
    rt.Cells(0,1).Text = "黄财德"
    rt.Cells(1,0).Text = "职务"
    rt.Cells(1,1).Text = "总经理"
    rt.Cells(2,0).Text= "工号"

    Dim rbc As New prt.RenderBarCode()
    rbc.Width = 60
    rbc.Height = 20
    rbc.BarCodeType = BarCodeEnum.Code39
    rbc.BarDirection = BarDirectionEnum.Normal
    rbc.Text = "123456"
    rbc.ShowText = false
    rt.cells(2,1).RenderObject = rbc

    doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next
Doc.Preview() '预览报表


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/30 12:00:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部