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

周日游鱼

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

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

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

biaotiger1

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

周日游鱼

谢谢biaotiger1！

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

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

biaotiger1

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

naocai

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

shuyee

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

shuyee

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

shuyee

总算解决了.原来网上有的资料说得不够充分.即:当待转换字符的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

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

bbaojji

我想看看，找的很辛苦啊