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

好的，我试一下。

很遗憾，还是不行。按照狐狸爸爸的代码，生成的条码清晰度已经堪比狐表自带工具的了。除了清晰度以外，还有什么因素影响识别？和生成条码长度有关？请看两种方法生成的条码比较（都是code39码，都是100%大小）：
此主题相关图片如下：比较.jpg

自带工具中的输出代码是简略的，更多属性没有体现：比如体现条码间距的代码是什么？如图

此主题相关图片如下：条码间距.jpg

 

 

去掉两行，就一样了：

 

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

在狐狸爸爸多次帮助下，（超清晰）条码扫描终于过关了，在此致谢了。打印效果如下：

 

 

此主题相关图片如下：项目555打印.jpg

 

还有3个问题请教：

1、如何设置页边距？（留那么宽的上下左右边距浪费纸张）

2、如何调整条码的垂直距离？（缺省的垂直距离太小，不好剪裁）

3、代码 

(rg.Graphics,0,0,1)后三个参数的含义？（找不到参考资料）

 

实践证明帮助中所说的“Foxtable提供了非常强大的条形码功能”是确实的。

 

 

 

自己顶

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

谢谢