主题：[求助]条形码打印

这样写，调整红色代码就行了。

If CurrentTable.ShowCheckBox = False Then
    messagebox.show("请先点击'打印前置'按钮,在想要打印二维码的行的复选框里打√,谢谢!","友情提示")
Else
    Dim doc As New PrintDoc
    Dim Bar As New BarCodeBuilder
    Dim rt As new prt.RenderText
    Bar.Symbology = Barpro.Symbology.Code39
    Bar.DisplayStartStopChar = False
    'Bar.BarRatio = 0.3
    'Bar.BarWidth = 1
    'Bar.BarHeight = 1
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

    For Each r As Row In CurrentTable.GetCheckedRows
        Dim ra As New prt.RenderArea
        ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
        ra.width = (Doc.PageSetting.Width.value - Doc.PageSetting.LeftMargin.value - Doc.PageSetting.RightMargin.value) / 4
        ra.height = 20
        bar.code = r("档号")
       
        Dim rg1 As New prt.RenderGraphics()
        rg1.Graphics.DrawImage(bar.GetImage,0,0,150,90)
        ra.Children.Add(rg1)
       
        'rt = New prt.RenderText
        'rt.Text = r("档号")
        'rt.Width = 35
        'rt.Height = 10
        'ra.Children.Add(rt) '添加到容器中
       
        Doc.Body.Children.Add(ra)
    Next
    Doc.Preview()
End If