[求助]条形码扫码内容与文本内容不符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4032人关注过本帖树形打印复制链接主题：[求助]条形码扫码内容与文本内容不符

loongtai

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

[求助]条形码扫码内容与文本内容不符 发帖心情

Post By：2015/5/10 14:53:00 [只看该作者]

做了一个窗口用于打印尾数递增的条形码，表中打印列的内容是我想打印的内容，显示是这正确的，如打印列内容为HF17201505100001，可将条形码打印出来后，对条形码进行扫描，扫码显示的内容却是：hf0240221503050017201505100001。不知这是怎么回事。

另外一个问题是，打出来的条形码用条码枪扫描比较困难，这是否与条码的格式参数设置有关？如何设置才能容易扫描。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:条形码打印窗口.zip

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

loongtai

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

回复：（大红袍）测试了一下，应该是你生成条码太小的... 发帖心情

Post By：2015/5/10 15:47:00 [只看该作者]

我标签纸的大小是40*12，按你的方式我把代码加进去：

For Each r As Row In Tables(e.form.name & "_tab_1").GetCheckedRows

bac.Code = r("打印列")

' MessageBox.show(bac.code)

Dim rg As New prt.RenderGraphics

rg = new prt.RenderGraphics

bac.DrawOnCanvas(rg.Graphics,0,0,3)

Doc.Body.Children.Add(rg)

'img = new prt.RenderImage

'img.Image = bac.GetImage

'Doc.Body.Children.Add(img)

doc.PageSetting.Height=12

doc.PageSetting.Width=40

doc.PageSetting.BottomMargin=0

doc.PageSetting.TopMargin=0

doc.PageSetting.RightMargin=8

doc.PageSetting.LeftMargin=0

doc.PageSetting.Landscape=True

Doc.Print

试了下，打印出来的内容是这样：

此主题相关图片如下：img_20150510_154503.jpg

[此贴子已经被作者于2015/5/10 15:47:56编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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倍啊

loongtai

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

回复：（大红袍）1、你要打印的内容不能超过你纸张的大... 发帖心情

Post By：2015/5/10 17:00:00 [只看该作者]

按你的方法，将倍数调整为1，条码清晰还好扫描，问题解决，谢谢！

loongtai

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

回复：（大红袍）1、你要打印的内容不能超过你纸张的大... 发帖心情

Post By：2015/6/22 16:44:00 [只看该作者]

我今天又试了下，怎么还是出现那样的错误呢？？？扫出来的内容与实际内容不符。

实际文本：HF17201506220001

扫描文本：hf0240221503050017201506220001

Dim doc As New PrintDoc

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=4

doc.PageSetting.LeftMargin=0

doc.PageSetting.Landscape=True

For Each r As Row In Tables(e.form.name & "_tab_1").GetCheckedRows

Dim Bar As New BarCodeBuilder

bar.BarWidth = 0.23

bar.BarRatio = 2

bar.BarHeight = 5

bar.QuietZoneWidth = 0.4

Bar.Symbology = Barpro.Symbology.Code128

Bar.Code = r("打印列")

Bar.AddCheckSum = False

Bar.DisplayStartStopChar = False

bar.Font = New Font("Cambria",9,FontStyle.Bold)

bar.CodeAlignment = Barpro.Alignment.Belowleft

Dim rg As New prt.RenderGraphics

rg = new prt.RenderGraphics

rg.Style.TextAlignVert=prt.AlignHorzEnum.center

bar.DrawOnCanvas(rg.Graphics,0,0,1.1)

Doc.Body.Children.Add(rg)

'doc.Preview

doc.Print

sloyy

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/6/22 22:23:00 [只看该作者]

扫描出来的内容不对,应该是扫描枪的编码格式没有设置对的原因,你检查一下你的扫描枪设置为什么码?

Bin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/23 8:44:00 [只看该作者]

肯定是扫描枪或者扫描软件的问题.

loongtai

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00

回复：（sloyy）扫描出来的内容不对,应该是扫描枪的编... 发帖心情

Post By：2015/7/6 19:56:00 [只看该作者]

用的就是普通的条码扫描枪，USb口插上就能用，不需要设置什么的

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

总数 22 1 2 3 下一页

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