以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条码生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110487)
--  作者：有点甜
--  发布时间：2017/12/4 15:07:00
--  

参考

 

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

 

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

 

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

 
--  作者：有点甜
--  发布时间：2017/12/4 16:40:00
--  

参考代码

 

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