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

在做条码打印时,我发现,每次都是N张条码连续在一起的,我想做成标签式的,比如有产品名称,产地,另有条码,这样如何处理?

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

Dim doc As New PrintDoc
Dim rbc As New prt.RenderBarCode()
rbc.DataBinding.DataSource = BindTables("表B") '绑定到表
rbc.Width = 60
rbc.Height = 20
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "编号:[Fields!编号.Value]" '绑定到列
rbc.ShowText = True
doc.Body.Children.Add(rbc)
Doc.Preview()


我这样打出来就是连续在一起的

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

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

你可以看看帮助中的几个关于标签打印的章节，道理一样，只不过是其中一个对象换成了条形码。

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

哈哈，那就是设置问题啊，看我这个：

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() '预览报表

我知道我错在何处了
1.rt.cells(2,1).RenderObject = rbc
2.应该加一个rw,Dim rw As Row
3. rbc.Text = " " & rw("编号")
不要绑定到列,而是某行某列,呵呵

你晕没事,我不晕就行了,呵呵,等我全做好发上来,你就不晕了,呵呵