编程条形码.docx

1、编程条形码VB应用程序中打印条形码的两种方法条形码作为一种机器可识别的图形，它能快速、准确地标识某种产品或商品，在许多数据库应用中起作很重要的作用，如超市收银、车站售票等场合。当某件物品上带有的条形码被条码扫描器正确解读后，将会得到该物品的唯一标识字符串，通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。虽然在Internet上能找到许多免费和不免费的条形码打印控件，但是这些控件除了使用不方便外，还有一个最大的缺点：它们的打印输出不能和我们的程序共存在一个打印页面上，比如说在一个过程中，我们先向系统 Printer 中输出一些内容，然后再调用控件的条形码打印方法，最后打印的结果为

2、两页！，如果现在我们要处理一张车票，上面不仅要打印条形码，还要有终点站和票价等信息，那么控件就变得不可用。对程序员来说，可能还是希望能了解条形码打印的原理，本文提出两种打印方法与同行们探讨。 一、直接利用有条形码打印功能的打印机 有许多打印机能够直接打印条形码，但在 VB 中，我们在时代熟悉的LPRINT语句已经不能再使用了，打印操作被Windows的Spool系统完全接管，输出是以“页”为单位，所有的打印输出都被Windows转换为图形发送给打印驱动程序。而要使打印机打印条形码就必须将对应的ESC序列直接发送给它，因此我们就要想办法避开Windows的Spool系统，也就是说再程序中不能使用

3、Printer对象和Printers集合处理打印输出，在VB中要将ESC指令直接发送给打印机至少有三种方法，前两种方法是调用Windows API 函数：Escape()和SpoolFile()，第三种是最容易的方法：打开打印机端口进行二进制存取，我们主要考虑这种方法。 即使在Windows时代，”LPT1:”和”PRN”仍然是可用的，下面我们先作一个试验：打开一个DOS窗口，在提示符下输入COPY CON LPT1:回车，然后随便输入一些字符，最后按F6键，打印机就开始工作了，它将打印出你输入的那些字符！下面的代码演示了直接将指令和字符发送给打印机： Private Sub Command1

4、_Click() Dim strOut As String StrOut = “这是直接发送到打印机端口的字符串” 打开打印机端口，其中的”LPT1:”可能需要根据你的打印机设置而改变 Open “LPT1:” For Binary Access Write As #1 发送给打印机，注意语句的最后一个参数必须是变量 Put #1, ,strOut 关闭打印机端口 Close #1 End Sub 各种打印机打印条形码的指令可能不同，比如将上面的变量 strOut赋值为： strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) &

5、Chr(6) & “012345” 将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。 用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。 二、利用画图方式输出到普通打印机 条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的和，只要我们了解了条形码的编码规则，完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。 CODE39码

6、的编码规则是： 、 每五条线表示一个字符； 、 粗线表示，细线表示； 、 线条间的间隙宽的表示，窄的表示； 、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码； 、 条形码的首尾各一个标识开始和结束 在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如： 上图中的字符就可以解读为 001101000，字符解读为 110000100 下面就是我们给出的子过程： 注释： 将字符串 strBarCode 对应的条形码输出到缺省打印机 Private Sub PrintBarCode( _ ByVal strBarCode As St

7、ring, _ Optional ByVal intXPos As Integer = 0, _ Optional ByVal intYPos As Integer = 0, _ Optional ByVal intPrintHeight As Integer = 10, _ Optional ByVal bolPrintText As Boolean = True _ ) 注释： 参数说明: 注释： strBarCode- 要打印的条形码字符串 注释： intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0)，坐标刻度为:毫米) 注释： intHeight - 打印高度

8、(缺省为一厘米,坐标刻度为:毫米) 注释： bolPrintText - 是否打印人工识别字符(缺省为true) 注释： 0-9,A-Z,-,%,$和* 的条码编码格式,总共 40 个字符 Static strBarTable(39) As String 注释： 初始化条码编码格式表 strBarTable(0) = 001100100 注释： 0 strBarTable(1) = 100010100 注释： 1 strBarTable(2) = 010010100 注释： 2 strBarTable(3) = 110000100 注释： 3 strBarTable(4) = 00101010

9、0 注释： 4 strBarTable(5) = 101000100 注释： 5 strBarTable(6) = 011000100 注释： 6 strBarTable(7) = 000110100 注释： 7 strBarTable(8) = 100100100 注释： 8 strBarTable(9) = 010100100 注释： 9 strBarTable(10) = 100010010注释： A strBarTable(11) = 010010010注释： B strBarTable(12) = 110000010注释： C strBarTable(13) = 001010010注

10、释： D strBarTable(14) = 101000010注释： E strBarTable(15) = 011000010注释： F strBarTable(16) = 000110010注释： G strBarTable(17) = 100100010注释： H strBarTable(18) = 010100010注释： I strBarTable(19) = 001100010注释： J strBarTable(20) = 100010001注释： K strBarTable(21) = 010010001注释： L strBarTable(22) = 110000001注释：

11、M strBarTable(23) = 001010001注释： N strBarTable(24) = 101000001注释： O strBarTable(25) = 011000001注释： P strBarTable(26) = 000110001注释： Q strBarTable(27) = 100100001注释： R strBarTable(28) = 010100001注释： S strBarTable(29) = 001100001注释： T strBarTable(30) = 100011000注释： U strBarTable(31) = 010011000注释： V s

12、trBarTable(32) = 110001000注释： W strBarTable(33) = 001011000注释： X strBarTable(34) = 101001000注释： Y strBarTable(35) = 011001000注释： Z strBarTable(36) = 000111000注释： - strBarTable(37) = 100101000注释： % strBarTable(38) = 010101000注释： $ strBarTable(39) = 001101000注释： * If strBarCode = Then Exit Sub 注释： 不打印

13、空串 注释： 保存打印机 ScaleMode Dim intOldScaleMode As ScaleModeConstants intOldScaleMode = Printer.ScaleMode 注释： 保存打印机 DrawWidth Dim intOldDrawWidth As Integer intOldDrawWidth = Printer.DrawWidth 注释： 保存打印机 Font Dim fntOldFont As StdFont Set fntOldFont = Printer.Font Printer.ScaleMode = vbTwips 注释： 设置打印用的坐标刻

14、度为缇(twip=1) Printer.DrawWidth = 1 注释： 线宽为 1 Printer.FontName = 宋体 注释： 打印在条码下方字符的字体和大小 Printer.FontSize = 10 Dim strBC As String 注释： 要打印的条码字符串 strBC = Ucase(strBarCode) 注释： 将以毫米表示的 X 坐标转换为以缇表示 Dim x As Integer x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips) 注释： 将以毫米表示的 Y 坐标转换为以缇表示 Dim y As Intege

15、r y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips) 注释： 将以毫米表示的高度转换为以缇表示 Dim intHeight As Integer intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips) 注释： 是否在条形码下方打印人工识别字符 If bolPrintText = True Then 注释： 条码打印高度要减去下面的字符显示高度 intHeight = intHeight - Printer.TextHeight(strBC) End IfConst

16、 intWidthCU As Integer = 30 注释： 粗线和宽间隙宽度 Const intWidthXI As Integer = 10 注释： 细线和窄间隙宽度 Dim intIndex As Integer注释： 当前处理的字符串索引 Dim i As Integer, j As Integer, k As Integer注释： 循环控制变量 注释： 添加起始字符 If Left(strBC, 1) * Then strBC = * & strBC End If 注释： 添加结束字符 If Right(strBC, 1) * Then strBC = strBC & * End

17、If 注释： 循环处理每个要显示的条码字符 For i = 1 To Len(strBC) 注释： 确定当前字符在 strBarTable 中的索引 Select Case Mid(strBC, i, 1) Case * intIndex = 39 Case $ intIndex = 38 Case % intIndex = 37 Case - intIndex = 36 Case 0 To 9 intIndex = CInt(Mid(strBC, i, 1) Case A To Z intIndex = Asc(Mid(strBC, i, 1) - Asc(A) + 10 Case Else

18、 MsgBox 要打印的条形码字符串中包含无效字符！当前版本只支持字符 注释：0注释：-注释：9注释：,注释：A注释：-注释：Z注释：,注释：-注释：,注释：%注释：,注释：$注释：和注释：*注释： End Select 注释： 是否在条形码下方打印人工识别字符 If bolPrintText = True Then Printer.CurrentX = x Printer.CurrentY = y + intHeight Printer.Print Mid(strBC, i, 1) End If For j = 1 To 5 注释： 画细线 If Mid(strBarTable(intInd

19、ex), j, 1) = 0 Then For k = 0 To intWidthXI - 1 Printer.Line (x + k, y)-Step(0, intHeight) Next k x = x + intWidthXI 注释： 画宽线 Else For k = 0 To intWidthCU - 1 Printer.Line (x + k, y)-Step(0, intHeight) Next k x = x + intWidthCU End If 注释： 每个字符条码之间为窄间隙 If j = 5 Then x = x + intWidthXI * 3 Exit For End

20、 If 注释： 窄间隙 If Mid(strBarTable(intIndex), j + 5, 1) = 0 Then x = x + intWidthXI * 3 注释： 宽间隙 Else x = x + intWidthCU * 2 End If Next j Next i 注释： 恢复打印机 ScaleMode Printer.ScaleMode = intOldScaleMode 注释： 恢复打印机 DrawWidth Printer.DrawWidth = intOldDrawWidth 注释： 恢复打印机 Font Set Printer.Font = fntOldFont En

21、d Sub 最理想的情况是将它做成一个控件，在控件中提供一个打印方法，该方法实现与上 那个过程大致相同，只是不能在控件中直接使用VB的Printer对象，否则VB会将你在控件中的打印输出处理为一个单独的页面，而是应该将Printer.hDc传给它，通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上，比如我们可以这样定义这个控件的打印方法： 注释： PrintIt 方法将对应的条形码输出到缺省打印机 Public Sub PrintIt(ByVal PrintDC As Long, _ Optional ByVal intXPos As Integer =

22、 0, _ Optional ByVal intYPos As Integer = 0, _ Optional ByVal intPrintHeight As Integer = 10) 既然不能使用Printer对象，那么画线和输出文字也不能使用Printer对象的Line和Print方法，在我们的程序中至少要申明以下三个Windows API函数： 移动画笔的位置 Private Declare Function MoveToEx Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINT

23、API) As Long 从画笔的当前位置到（x,y）画一条线 Private Declare Function LineTo Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 在（x,y）处输出一个字符串 Private Declare Function TextOut Lib gdi32 Alias TextOutA (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCoun

24、t As Long) As Long MoveToEx() 函数需要的参数 Private Type POINTAPI xp As Long yp As Long End Type Dim papi As POINTAPI 画线操作为(原来的Printer.Line函数)： MoveToEx PrintDC, x + k, y, papi LineTo PrintDC, x + k, y + intHeight + 1 打印字符为(原来的Printer.Print函数)： TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1用VB

25、编程设计39条形码打印系统的方法湖南刘玉平（lyp1205）条形码是一种图形识别输入技术，具有快速、准确、低廉等优点，被广泛应用于工业、医药、商品流通、图书馆管理以及票证等众多的自动化管理系统中。下面面首先对条形码作一个简单的介绍，然后详细介绍用VB编程打印39码的设计方法。一、条形码技术简介条形码是利用条（着色部份）、空（非着色部份）及其宽、窄的交替变换来表达符号信息的“图形符号”，每一种编码都有一个遵循的标准，只要遵循这一标准打印出来的条、空交替排列的“图形符号”，就包含了字符信息；通过条码识别仪器可解码出它包含的字符信息。常用的条形码有好几种，国际规格的POS符号，用于出版物、商品的JA

26、N-13码（如图1是娃哈哈饮用纯净水的条形码，图2是牛津高阶英汉双解词典的条形码）；广泛用于工业、图书、以及票证自动化管理的39码（如图3、4条形码表示软件报的网址WWW.SWEEK.COM、国内统一代码CN51-0106）等。想了解条形码更多的知识可阅读相关资料，这里只对最常用的39码进行较详细的介绍：1、39码的特点l能表示字母(A-Z)、数字(0-9)和其它一些特殊符号(-，.，$，/，+，%，空格)共43个字符。l条码的长度可变，对数据的字节数并没有限制。l通常用“*”号作为起始符和终止符。l不用校验码。l代码密度介于每英寸3-9.4个字符。l空白区是窄条的1-10倍，宽条是窄条的2-

27、3倍。l广泛用于工业、图书、以及票证自动化管理。2、编码规则39码可表示的字符多达43个，每一字符，使用9个元素，其中3个宽元素、6个窄元素，故名39码，这3个宽元素中必须有两个是条（有四个特殊用途的字符除外）。如果用0表示窄元素，1表示宽元素，奇数位为条元素，偶数位为空元素，字符“1”的编码规则为：“100100001”，对应的条码如图5，字符“A”的编码规则为：“10001001”，对应的条码如图6，字符“*”的编码规则为：“010010100”，对应的条码如图7，43个字符的编码规则如表1。一串字符的条码就是由对应的字符的条码排列而成，中间用空白隔开，如图8是字符串“1A”的条码，通常用“*”作起、终止符，以便于条码识别仪识别，如图9。图5对应1二、用VB编程思路根据表1所示规则，为编程方便，空白区取一个窄元素的