主题：二维码

如何让说明文字在二维码下面显示出来呢，请老师帮我改改。

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)

Bar.DisplayCode = True
Bar.DisplayChecksum = True
Bar.DisplayStartStopChar = True
Bar.QuietZoneWidth = 2
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.Text = "第一列"
Bar.TextAlignment = Barpro.Alignment.BelowCenter

Next
Doc.Preview()

参考

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

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