Question

条码字体打印出来无法扫描

在网上下载了很多条码字体，用打印机打印出来话都是无法扫描的，请问有谁知道怎么解决？是不是打印出来的话大小格式就变了？如果控制大小和格式？
我用在线条码生成器，生成的条码图片复制到WORD里面，打印出来是可以扫描的，他用的是CODE 39的，很奇怪的是，我再WORD里面用CODE 39输入数字形成的条码，比在线生成的小很多，输入的数字是一样的，选择字体大小是一样的。
因为我们现在需要把软件里面的数字，变成条码的格式，所以要用到条码字体，可是打印出来无法扫描，后来我直接用WORD打印出来也无法扫描，用在线生成器生成的条码打印出来是可以扫描的。
没有解决问题，百度知道越来越不行了，算了分数不要了，问题关闭掉

Answer 1

条码扫不出来的原因
1、条码被缩放的太小
2、条码不完整
3、环境因素（在强光的时候不好扫）
4、码制的问题一般扫描枪只支持一维条码的扫描
5、扫描枪的问题
条形码可以用喷墨打印机打的，分辨率不用，打印文本是普通打印的，这分辨率会低些，打条形码，您可以设置一下照片打印的效果会好点，如果还是不行，打印出来的是白纸的话，可能是喷头堵了，可以清洗下喷头。

追问

1、条码如果被缩放大小了怎么解决，字号从最大到最小都试过了不行。
2、怎么知道条码是不是完整的？我选择条码字体，输入数字打印出来的。
3、环境因素可以排除
4、可以排除
5、可以排除

Answer 2

因为生成的条码不完整，需要在前后添加识别码*号，这样才能在打印出来后进行正常扫描。
因为一个条码除了数字部分还有一部分是用来区分前后顺序的，这样即使你倒过来扫码扫出来的数字也是正确的~！

Answer 3

以128B条码为例, 打印出来扫描不出来是因为条码前后缺少标识符. 如果我们加上相应的标识符上去, 打应出来就可以扫描了. 下面是我网上收集的VBA代码. 希望可以帮到你

Function code128b(str)   '128B码:ChrW(204).   128条码字体加首尾字符

    Dim s$, i%, ss$, j%, checkB%

    s = CStr(str)

    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

Answer 4

word里面编辑的条码不是很标准，最好用条码打印软件去编辑。

Answer 5

在要打成条码的内容前后加上星号。例如要把 234 打成条码字体，需要调整成 *234* 即可。