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

我使用帮助BarCodeBuilder中提供的代码做了如下项目：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条码打印疑问.rar

运行结果是扫描仪不识别，条码扫不出来。在打印预览窗口中将条码放大看条码线条模糊；

而使用狐表本身的条码打印工具生成条码很容易被扫描仪识别，在打印预览中即使放大到800%来看也是很清晰的，有点矢量图形的感觉。

这是否就是识别与不识别的原因所在？

如何解决这个问题？

换个方式打印吧：

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()