先看看：http://www.foxtable.com/help/topics/2081.htm
http://www.foxtable.com/help/topics/2083.htm
设置好之后，可以用这个自动生成代码：
http://www.foxtable.com/help/topics/2092.htm
根据生成的代码，来修改自己的代码：
Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("职工一览表").Rows
bar.Cod ="姓 名:" & r("姓名") & Chr(13) & Chr(10) & "出生时间:" & r("出生时间")
Bar.Text = r("姓名")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Next
Doc.Preview()
[此贴子已经被作者于2015/3/24 21:39:58编辑过]
加好友 
发短信
Post By：2015/3/24 21:39:00 [显示全部帖子]
