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


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

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

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/10 15:39:00 [显示全部帖子]

测试了一下,应该是你生成条码太小的缘故吧?

 

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

 

 

Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables(e.form.name & "_tab_1").GetCheckedRows
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code128
    Bar.Code = r("打印列")
    Bar.AddCheckSum = False
    Bar.DisplayStartStopChar = False
   
   
    Dim rg As New prt.RenderGraphics
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,3)
    Doc.Body.Children.Add(rg)
   
    doc.PageSetting.Landscape=True
    Doc.Preview
Next


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/10 15:54:00 [显示全部帖子]

1、你要打印的内容不能超过你纸张的大小;

 

2、有一些编码,需要的长度大一些,有一些编码不需要太长的,正确选择你需要的编码;

 

3、用2楼的代码,设置好扩大的倍数啊,2楼的代码是3倍啊


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/6 19:58:00 [显示全部帖子]

以下是引用loongtai在2015/7/6 19:56:00的发言:
用的就是普通的条码扫描枪,USb口插上就能用,不需要设置什么的

 

用纸打印,打印全部,肯定不会读错。

 

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

 


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


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

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


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

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/7 16:41:00 [显示全部帖子]

 你能不能动点脑筋?

 

打开条码测试工具,设置好条码,可以在电脑直接扫,或者打印出来扫(打印的时候,你用另外一台打印机,用A4纸打印啊)

 

先确认是代码的问题,还是扫描枪的问题,还是纸张的问题啊。


 回到顶部