主题：条码生成

参考

http://www.foxtable.com/webhelp/scr/2076.htm

http://www.foxtable.com/webhelp/scr/2092.htm

http://www.foxtable.com/webhelp/scr/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
    Dim ra As new prt.RenderArea
    Dim txt As new prt.RenderText
    txt.text = r("第二列")
    txt.X = 10
    ra.children.add(txt)
    txt = new prt.RenderText
    txt.text = r("第三列")
    txt.x = 30
    ra.children.add(txt)
   
    bar.Code = r("第一列")
    img = new prt.RenderImage
    img.Image = bar.GetImage
    img.x = 10
    img.y = 10
    ra.children.add(img)
    Doc.Body.Children.Add(ra)
Next
Doc.Preview()