以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于条码打印的求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42453)

--  作者:czy66ds
--  发布时间:2013/11/12 13:20:00
--  [求助]关于条码打印的求助

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:条码打印疑问.rar

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

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

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

如何解决这个问题?


--  作者:czy66ds
--  发布时间:2013/11/12 13:38:00
--  
自己顶
--  作者:狐狸爸爸
--  发布时间:2013/11/12 14:19:00
--  

换个方式打印吧:

 

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

 


--  作者:狐狸爸爸
--  发布时间:2013/11/12 14:24:00
--  

不要意思,看错了。

 

设置一个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()


--  作者:czy66ds
--  发布时间:2013/11/12 14:34:00
--  

有何区别?


--  作者:czy66ds
--  发布时间:2013/11/12 14:40:00
--  
就是设置了一个300的dpi
--  作者:狐狸爸爸
--  发布时间:2013/11/12 14:52:00
--  
提高了清晰度
--  作者:czy66ds
--  发布时间:2013/11/14 11:26:00
--  
我按狐狸爸爸提示作了,还是不行。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:条码打印疑问.rar


--  作者:czy66ds
--  发布时间:2013/11/14 11:27:00
--  
请技术人员帮助测试一下吧。
--  作者:狐狸爸爸
--  发布时间:2013/11/14 11:38:00
--  

超清晰:

 

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