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

各位老师，请帮忙看看如下这种条形码代码该怎么写？琢磨好久了，始终不得法。

 

此主题相关图片如下：bar_code sample.jpg

请参考 专业报表 去生成

 

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()

这个在帮助上都有。也试过，其实我只是希望在窗口中按一下按钮就能有一张如同标签的条形码图片，这样我可以直接打印。

尽管不是我想要的效果，还是很感谢甜老师。

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

抱歉，或许我表达的不明确。

请看：

1. 在如下模块中，单击红色圆圈处的【标签】按钮：

 

此主题相关图片如下：pn_weihu.jpg

2. 单击红色圆圈处的【标签】按钮后，产生一张如一楼的图片，不需要预览。以物料编号为文件名称。注：本来想再将图片上传，网站提示不要重复提交。

 

 

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