主题：[求助]多行条形码代码怎么写？

请参考 专业报表 去生成

 

http://www.foxtable.com/help/topics/1949.htm

 

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
For Each r As Row In Tables("表A").Rows
    If r.IsNull("第一列") = False Then
        bar.Code = r("第一列")
        img = new prt.RenderImage
        img.Image = bar.GetImage
        Doc.Body.Children.Add(img)
    End If
Next
Doc.Preview()

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
For Each r As Row In Tables("表A").Rows
    If r.IsNull("第一列") = False Then
        bar.Code = r("第一列")
        img = new prt.RenderImage
        img.Image = bar.GetImage
        Doc.Body.Children.Add(img)
    End If
Next
dim ptxt as new prt.RenderText
ptxt.Text = "1234567"
doc.Body.Children.Add(ptxt)
Doc.Preview()

无语，你要怎样的效果你就上传具体的例子啊。谁知道你要什么。

根据原厂编号生成一个条码、再根据物料编号生成一个条码，然后，下面要加入什么，就再加一个文本对象，最后生成一个报表保存成图片即可。