主题：条形码打印控制

请教：按如下代码批量打印生存的条形码，1.如何在打印的码下面附上 姓名；2.条码大小如何控制。谢谢了！

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.CodE ="姓   名:" & r("姓名") & Chr(13) & Chr(10) & "出生时间:" & 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()