Foxtable(狐表)用户栏目专家坐堂 → [求助]条形码扫码内容与文本内容不符


  共有4078人关注过本帖树形打印复制链接

主题:[求助]条形码扫码内容与文本内容不符

帅哥哟,离线,有人找我吗?
loongtai
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
  发帖心情 Post By:2015/7/7 9:44:00 [只看该作者]

是不是只能用Code39类型啊
Code128的话,校验符什么的设置了也没什么变化。
但我的标签纸只有40*12这么大,在这个尺寸内最多能打多少位数字???
扫描出来的文本为:hf02402215030500172015070601   共28位
实际设置文本为:hf172015070601                               共14位
这说明条码能支持的位数可达28位。现在就是为何扫描出来的内容与设置内容不符?这多出来的文本是怎么回事?

[此贴子已经被作者于2015/7/7 9:46:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 9:50:00 [只看该作者]

 连最基本的都不会?40宽可以容纳多少内容你不会测试一下啊?再说一次,文本越长,条码越长啊。

 

 同时,去看你扫描枪帮助说明,一些code要开启才能扫描的啊。


 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
  发帖心情 Post By:2015/7/7 10:09:00 [只看该作者]

Dim doc As New PrintDoc
’doc.PrinterName="ZDesigner GT800 (EPL)"
doc.PageSetting.Height=12     ’如果这款标签过小,实在放不下这么长的文本另外一款标签:30(高)*60(宽)
doc.PageSetting.Width=40
doc.PageSetting.BottomMargin=0
doc.PageSetting.TopMargin=0
doc.PageSetting.RightMargin=0
doc.PageSetting.LeftMargin=0
doc.PageSetting.Landscape=True
    Dim bar As new BarCodeBuilder
    bar.code="9-1|64-20150908-10|12"   
    bar.BarWidth = ???  ‘0.23  
    bar.BarRatio =??? ’2   
    bar.BarHeight = ???  ‘5
    bar.QuietZoneWidth =???  ’1   
    bar.Symbology = ???  ‘Barpro.Symbology.code128
    bar.AddCheckSum = False
    bar.DisplayChecksum=False
    bar.DisplayStartStopChar=False
    bar.Font = New Font("Cambria",9,FontStyle.Bold)
    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
    rt.Rows.Count = 3 '设置行数
    rt.Cols.Count = 1 '设置列数
    rt.Width = 60 '设置表格的宽度
    rt.Height = 40 '设置表格的高度
    Dim rg As New prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rt.Cells(0,0).RenderObject = rg '将单元格内容设置为图片对象rm
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
还请看看,图中的黄色标记到底工该如何设置才能正确打印和识别条码内容("9-1|64-20150908-10|12"  

 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
回复:(大红袍) 连最基本的都不会?40宽可以容...  发帖心情 Post By:2015/7/7 10:13:00 [只看该作者]

试了60宽的也不行啊。
另外,不是可以通过
Dim rg As New prt.RenderGraphics
Bar.DrawOnCanvas(rg.Graphics,0,0,0.5) 
0.5这个比例可以调的吗?
如果不考虑是否能扫描出来,理论上来说是不是文本再长,也可以通过缩放比例来调整的,只不过文本越长,缩放比例越大,相应的字体会越小



 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 10:22:00 [只看该作者]

 

[此贴子已经被作者于2015/7/7 10:26:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 10:28:00 [只看该作者]

要说多少次?怎样改都不行,内容越多,条码越长,要么减少内容,要么增加纸张宽度

 

Dim doc As New PrintDoc
'doc.PrinterName="ZDesigner GT800 (EPL)"
doc.PageSetting.Height=12     '如果这款标签过小,实在放不下这么长的文本另外一款标签:30(高)*60(宽)
doc.PageSetting.Width=100
doc.PageSetting.BottomMargin=0
doc.PageSetting.TopMargin=0
doc.PageSetting.RightMargin=0
doc.PageSetting.LeftMargin=0
doc.PageSetting.Landscape=True
Dim bar As new BarCodeBuilder
bar.code="9-1|64-20150908-10|12"
bar.BarWidth = 0.23
bar.BarRatio = 2
bar.BarHeight = 5
bar.QuietZoneWidth = 1
bar.Symbology = Barpro.Symbology.code128
bar.AddCheckSum = False
bar.DisplayChecksum=False
bar.DisplayStartStopChar=False
bar.Font = New Font("Cambria",9,FontStyle.Bold)
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 1 '设置列数
rt.Width = 100 '设置表格的宽度
rt.Height = 40 '设置表格的高度
Dim rg As New prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rt.Cells(0,0).RenderObject = rg '将单元格内容设置为图片对象rm
doc.Body.Children.Add(rt) '将表格对象加入到报表中
doc.Preview


 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
  发帖心情 Post By:2015/7/7 15:56:00 [只看该作者]

我在60*40的标签上打印了“HF17201509070001”,就这16位字符,仍是识别不出来。
而在40*12的标签上打印“HF172015090701” 14位字符就可识别。
但是条码扫描出来的内容还与接收软件有关,如果扫描的内容显示在狐表软件里,不论是数据表里还是命令窗口里,扫描出来的内容均与实际文本不符,
而扫描到excel表格里,则扫描出来的内容与实际文本一致,不知这是为什么?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150707155249.png
图片点击可在新窗口打开查看

以下是我这次设置的条码打印代码:
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
doc.PrinterName="ZDesigner GT800 (EPL) -2#"
doc.PageSetting.Height=12
doc.PageSetting.Width=40
doc.PageSetting.BottomMargin=0
doc.PageSetting.TopMargin=0
doc.PageSetting.RightMargin=0
doc.PageSetting.LeftMargin=1
doc.PageSetting.Landscape=True
bar.BarWidth = 0.23
bar.BarRatio = 1
bar.BarHeight = 5
bar.QuietZoneWidth =1   '0.4
Bar.Symbology = Barpro.Symbology.Code128
bar.Font = New Font("Cambria",9,FontStyle.Bold)
bar.CodeAlignment = Barpro.Alignment.Belowleft
Bar.Code ="HF172015090701"   '"9-1|64-150908-56" '("打印列")
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
'doc.Preview
doc.Print


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 16:07:00 [只看该作者]

 那你现在的问题是扫描枪扫不出是么?

 

 那你就去看看你扫描枪的使用文档,这个和条码无关


 回到顶部
帅哥哟,离线,有人找我吗?
loongtai
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
回复:(大红袍) 那你现在的问题是扫描枪扫不出...  发帖心情 Post By:2015/7/7 16:22:00 [只看该作者]

现在的问题
1.打印出来的条码在不同的接收软件上扫描出来的内容是不一样的,扫描到狐表上的文本是错误的,而扫描到excel里的文本是正确的,这个肯定不是扫描枪的问题。
2.根据你说的“内容越多,条码越长,要么减少内容,要么增加纸张宽度”,在40宽的标签纸上可正确打印出14位字符的条码,那么将标签宽度增加到60,那至少也应该可以打到18位吧。可实际上却并不是这样,同样的代码设置,将打印内容由“HF172015090701” 更改为 “HF17201509070001” ,只增加了两位,但在60宽的标签纸上仍是不能正确打印和扫描。
而且我按你说的,我直接把条码打印到A4纸上,这应该是足够宽了吧,可仍然是扫描不出来的。
----我不知道这样的问题出在哪


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 16:27:00 [只看该作者]

 1、肯定是扫描枪的问题,不会出现你说的情况啊。

 

 2、不能正确打印是你纸的问题,不能正确扫描,是你扫描枪的问题。

 

----------------------- 条码代码,不可能有问题,我已经叫你,在条码工具那里测试啊

 

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

 


 回到顶部
总数 22 上一页 1 2 3 下一页