有关Code 128字体文件、条码的问题

周日游鱼 · 发表于 2009-8-20 12:29

本贴只考虑使用字体文件，在Office中生成条码的方式——虽然控件的方式不错，但实施起来，尤其是涉及多个不同地域的机构时，其实施成本不小。

请教，各位有无使用Code 128字体文件，在Office中生成条码、激光打印机打印出来、能够正确识别的例子？
我下载了多个字体文件（包括那个流传很广的Code128.ttf，2K左右，以及其它Free、商业Demo字体），都不能正常识别。

备注：不是扫描枪的问题，条码打印机打出得Code 128码就可以正常识别；也不是前后缀的问题，已经试验了*、!、不加等多个字符，都不能识别；此外，无论是条码机还是激光机打出得Code 39码，均可识别无误。

biaotiger1 · 发表于 2009-8-20 13:14

我们公司只用39条码，条码机激光打印机都打（不同产品哦）均可用条码枪识别入计算机
其他不知道了
学习下

周日游鱼 · 发表于 2009-8-20 16:32

谢谢biaotiger1！

找了些资料，好好研究了一下，才知道Code 128码原来很复杂。
具体来说，出了正常的字符外，尚需要加入起始码、结束码、校验码三个字符，和正常字符一起作为一个字符串。这个字符串再设置为相应的Code 128字体，扫描设备才能准确识别。

这点和Code 39有点类似，只不过不像Code 39那么方便（前后加*或!即可），计算更复杂而已。

biaotiger1 · 发表于 2009-8-20 16:38

那如何才能正确实施呢
期待lz答案

naocai · 发表于 2009-8-24 16:44

LZ的问题我今天也遇到了，在EXCEL里用CODE128字体显示是条形码，但打印出来就是不能扫描。无论是用专业条码打印机还是普通激光打印机打印都不能扫描。期待高手解答。

shuyee · 发表于 2010-1-23 17:58

我实现了99%的工作,打印出来的条码,可以识别.我用的是128B码.
但这1%决定了无法使用.我也是今天才意识到(当时做了10个条码,9个能用).
就是计算校验码时,它的值刚好是128,搜索之后才明白code(128)和code(129),在word和excel下不显示,被系统吃掉了.我是用自定义函数做的,在代码里能看到正确地返回了校验位和休止位,可在excel下,明显短了.
最后只能认定,那个校验位连带休止位,一同被吃了(一般情况下,休止位可以正常显示).
很郁闷,还没想到变通的办法.

shuyee · 发表于 2010-1-23 17:59

你们直接用字体做,是不行的,缺少开始位,校验位和休止位.

shuyee · 发表于 2010-1-24 18:35

总算解决了.原来网上有的资料说得不够充分.即:当待转换字符的asc值超过127的,必须要处理.
我的函数没处理非有效字符,请注意.
附件代码有误.下面是修改后的.主要是asc值不能直接引用,以及休止位的码值是206,而不是附件中的205.
Function code128b(Tar As Range) '128B码:ChrW(204).
Dim s$, i%, ss$, j%, curR%, checkB%
curR = Tar.Row
s = Tar.Value
checkB = 1  '开始位的码值为104 mod 103 =1
For i = 1 To Len(s)
ss = Mid(s, i, 1)
j = Asc(ss) '不过滤无效字符,比如汉字.
If j < 135 Then
      j = j - 32
ElseIf j > 134 Then
      j = j - 100
End If
checkB = (checkB + i * j) Mod 103 '计算校验位
Next
If checkB < 95 And checkB > 0 Then  '有的资料直接求103的模,解说不充分,因为有的校验位超过127时,系统会"吃"掉它们(连带休止符).
checkB = checkB + 32
ElseIf checkB > 94 Then '字体设置时,字模被定义了2个值.观察字体文件时能发现.
checkB = checkB + 100
End If
code128b = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(206)
End Function

[ 本帖最后由 shuyee 于 2010-1-25 09:57 编辑 ]

181556420 · 发表于 2011-3-22 23:22

具体怎么操作啊，谁能详细说下，新手

bbaojji · 发表于 2010-4-16 01:15

我想看看，找的很辛苦啊

		自动登录	找回密码
密码			免费注册

[求助] 有关Code 128字体文件、条码的问题

浏览过的版块