excel实现条形码批量生成打印.zip

excel实现条形码打印的方式有3种 1、通过excel开发工具，插入Microsoft Barcode control 16.0实现 这个方法不支持WPS 2、通过安装3 of 9 barcode 字库实现code39条形码 此方法需要在原始内容的开头和结尾增加*号字符，一般的扫描老设备不会自动过滤*号，会产生识别错误，不过现在新设备基本不存在这个问题。还有一个问题时code39格式的条形码无法实现更多的字符长度。 3、终极办法：code128字库+vba转换对原始内容进行加密，然后通过code字符显示出来，加密VBA代码如下： Attribute VB_Name = "Code128b" '短的好用，就是不知道超过95会不会有问题，因为 Select Case那一段儿？的是拷过来乱码了的 Function fncGetCd128SetB(strIn As String) As String Dim intLoop As Integer Dim intPosition As Integer Dim intTotalVal As Integer Dim strOut As String Dim strSpChr As String Dim strEndChr As String Dim intEndNo As Integer strOut = "" For intLoop = 0 To Len(strIn) - 1 intPosition = intLoop + 1 strSpChr = Mid(strIn, intPosition, 1) intTotalVal = intTotalVal + (Asc(strSpChr) - 32) * intPosition Next intTotalVal = intTotalVal + 104 intTotalVal = intTotalVal Mod 103 If intTotalVal >= 95 Then Select Case intTotalVal Case 95 strEndChr = "?" Case 96 strEndChr = "?" Case 97 strEndChr = "?" Case 98 strEndChr = "?" Case 99 strEndChr = "?" Case 100 strEndChr = "è" Case 101 strEndChr = "é" Case 102 strEndChr = "ê" End Select Else intTotalVal = intTotalVal + 32 strEndChr = Chr(intTotalVal) End If fncGetCd128SetB = Chr(43180) + strIn + strEndChr + Chr(206) End Function '总体感觉这个比较好 Function code128b(Tar As Range) As String '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