主题：[求助]关于条码打印的求助

换个方式打印吧：

http://www.foxtable.com/help/topics/2093.htm

不要意思，看错了。

设置一个dpi:

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    If  r.IsNull("条码")     Then
        Exit For
    End If
    bar.Code = r("条码")
    img = new prt.RenderImage
    img.Image = bar.GetImage(300)
    Doc.Body.Children.Add(img)
Next
Doc.Preview()

超清晰：

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    If  r.IsNull("条码")     Then
        Exit For
    End If
    bar.Code = r("条码")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

去掉两行，就一样了：

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    If  r.IsNull("条码")     Then
        Exit For
    End If
    bar.Code = r("条码")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()