主题：[求助]条码打印

我的条码纸是65*25，一行只打印一个条码，现在我的“条码表”有三行数据，预览的时候只显示一行，代码如下：

Dim doc As New PrintDoc

doc.PageSetting.Width = 65 '纸张宽度为65毫米

doc.PageSetting.Height = 25 '纸张高度为25毫米

Dim rg As New prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code128

Dim t As Table =  Tables("条码") '指定数据来源表

For i As Integer = t.TopPosition To t.BottomPosition

    Dim r As Row =t.Rows(i)

    Bar.Code = r("条码")

    Bar.HumanReadableText = r("生成条码")

    Bar.CodeAlignment = Barpro.Alignment.BelowLeft

    Bar.Font = New Font("Consolas",11)

    Bar.BarWidth = 0.25

    Bar.BarHeight = 10

    Bar.Text = r("型号")

    Bar.TextFont = New Font("OCR-B-Seagull",CSng(10.5),FontStyle.Bold)

    Bar.TextAlignment = Barpro.Alignment.AboveLeft

    Bar.TopMargin = 1

    Bar.BottomMargin = 1

    Bar.Code128CharSet = Barpro.Code128.B

    rg = new prt.RenderGraphics

    bar.DrawOnCanvas(rg.Graphics,0,0,1)

    rg.x=9

    rg.y=3

    'rg.Style.Spacing.All = 2

    Doc.Body.Children.Add(rg)

Next

Doc.PrinterName = "TSC TTP-244 Pro"

''Doc.print

Doc.Preview()