以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有哪位有制作过条码打印,请指教!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5478)

--  作者:baoxyang
--  发布时间:2009/12/14 15:22:00
--  有哪位有制作过条码打印,请指教!
现使用条码打印出来的线条,有的是点线,有的是波浪费。不知是何原因?如果用网上下载的条码打印程序打印的条码,正常。
代码如下:请高手指点哪里有问题

Dim doc As New PrintDoc() \'定义一个报表
    Doc.PageSetting.LeftMargin = 5
    Doc.PageSetting.RightMargin = 3
    Doc.PageSetting.TopMargin = 10
    Dim rw As row = Tables("库存捆包查询_Table1").current
    doc.PageSetting.Width = 80 \'纸张宽度为100毫米
    doc.PageSetting.Height = 50
    doc.PageSetting.Landscape = true \'横向打印
   \' doc.PageSetting.Width = 80 \'纸张宽度为100毫米
   \' doc.PageSetting.Height = 50

    Dim rbc As New prt.RenderBarCode()
    rbc.Width = 60
    rbc.Height = 40
    rbc.BarCodeType = BarCodeEnum.Code39
    rbc.BarDirection = BarDirectionEnum.Normal
    rbc.Text = rw("捆包号")
    rbc.ShowText = false
    doc.Body.Children.Add(rbc)

    Doc.Preview()


--  作者:baoxyang
--  发布时间:2009/12/14 15:46:00
--  

请老大,看看!上面打印预览时发现有重影,是怎么回事呀?谢谢


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

--  作者:yangming
--  发布时间:2009/12/14 16:53:00
--  

你缩小到100%看看,我看你都到1000%


--  作者:baoxyang
--  发布时间:2009/12/14 17:01:00
--  
是的。因为打印出来有点线和波浪线,所以把预览扩大到1000%,请问杨版主能否判断问题出在哪吗?较急!谢谢!!!
--  作者:baoxyang
--  发布时间:2009/12/15 8:40:00
--  
呀,没有哪位打印条码的吗?请帮忙呀。非常各位谢谢了!
--  作者:yangming
--  发布时间:2009/12/15 9:46:00
--  
以下是引用baoxyang在2009-12-14 17:01:00的发言:
是的。因为打印出来有点线和波浪线,所以把预览扩大到1000%,请问杨版主能否判断问题出在哪吗?较急!谢谢!!!

我也不清楚是什么问题