1、End Sub 各种打印机打印条形码的指令可能不同，比如将上面的变量 strOut赋值为： strOut = Chr（28） & “P” & Chr（5） & Chr（2） & Chr（3） & Chr（6） & “012345” 将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。 用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。二、利用画图方式输出到普通打印机 条形码的编码规则不外乎是通
2、过线条和线条间间隙的宽窄不同来表示二进制的和，只要我们了解了条形码的编码规则，完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。 CODE39码的编码规则是：、 每五条线表示一个字符；、 粗线表示，细线表示；、 线条间的间隙宽的表示，窄的表示；、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码；、 条形码的首尾各一个标识开始和结束 在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如： 上图中的字符就可以解读为 001101000，字符解读为 110000100 下面就是我们给
3、出的子过程：注释： 将字符串 strBarCode 对应的条形码输出到缺省打印机 Private Sub PrintBarCode（ _ ByVal strBarCode As String, _ 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- 要打
4、印的条形码字符串 intXPos, intYPos - 打印条形码的左上角坐标（缺省为（0,0），坐标刻度为:毫米） intHeight - 打印高度（缺省为一厘米,坐标刻度为: bolPrintText - 是否打印人工识别字符（缺省为true） 0-9,A-Z%$和* 的条码编码格式,总共 40 个字符 Static strBarTable（39） As String 初始化条码编码格式表 strBarTable（0） = 001100100 注释： 0 strBarTable（1） = 100010100 1 strBarTable（2） = 010010100 2 strBarTabl
5、e（3） = 110000100 3 strBarTable（4） = 001010100 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
6、） = 001010010 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 M strBarTable（23
7、） = 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 strBarTable（32） = 110001000 W strBarTable（33
8、） = 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 注释： 不打印空串 保存打印机 ScaleMode Dim intOldScaleMode As ScaleModeConstants intOld
9、ScaleMode = Printer.ScaleMode 保存打印机 DrawWidth Dim intOldDrawWidth As Integer intOldDrawWidth = Printer.DrawWidth 保存打印机 Font Dim fntOldFont As StdFont Set fntOldFont = Printer.Font Printer.ScaleMode = vbTwips 注释： 设置打印用的坐标刻度为缇（twip=1） Printer.DrawWidth = 1 注释： 线宽为 1 Printer.FontName = 宋体 注释： 打印在条码下方字符
10、的字体和大小 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 Integer y = Printer.ScaleY（intYPos, vbMillimeters, vbTwips） 将以毫米表示的高度转换为以缇表示 Dim intHeight As
11、 Integer intHeight = Printer.ScaleY（intPrintHeight, vbMillimeters, vbTwips） 是否在条形码下方打印人工识别字符 If bolPrintText = True Then 注释： 条码打印高度要减去下面的字符显示高度 intHeight = intHeight - Printer.TextHeight（strBC） End If Const intWidthCU As Integer = 30 注释： 粗线和宽间隙宽度 Const intWidthXI As Integer = 10 注释： 细线和窄间隙宽度 Dim int
12、Index As Integer注释： 当前处理的字符串索引 Dim i As Integer, j As Integer, k As Integer注释： 循环控制变量 添加起始字符 If Left（strBC, 1） Then strBC = & strBC 添加结束字符 If Right（strBC, 1） strBC = strBC & 循环处理每个要显示的条码字符 For i = 1 To Len（strBC） 确定当前字符在 strBarTable 中的索引 Select Case Mid（strBC, i, 1） Case intIndex = 39 intIndex = 38
13、intIndex = 37 intIndex = 36 To intIndex = CInt（Mid（strBC, i, 1） AZ intIndex = Asc（Mid（strBC, i, 1） - Asc（） + 10 Case Else MsgBox 要打印的条形码字符串中包含无效字符！当前版本只支持字符 注释：0注释：-注释：9注释：,注释：A注释：Z注释：%注释：$注释：和注释：*注释： End Select If bolPrintText = True Then Printer.CurrentX = x Printer.CurrentY = y + intHeight Printe
14、r.Print Mid（strBC, i, 1） End If For j = 1 To 5 注释： 画细线 If Mid（strBarTable（intIndex）, j, 1） = 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 x = x + intWidthCU End If 每个字符条码之间为窄间隙 If j = 5 Then x = x + intWidthXI *
15、 3 Exit For 窄间隙 If Mid（strBarTable（intIndex）, j + 5, 1） = 宽间隙 x = x + intWidthCU * 2 Next j Next i 恢复打印机 ScaleMode Printer.ScaleMode = intOldScaleMode 恢复打印机 DrawWidth Printer.DrawWidth = intOldDrawWidth 恢复打印机 Font Set Printer.Font = fntOldFont 最理想的情况是将它做成一个控件，在控件中提供一个打印方法，该方法实现与上 那个过程大致相同，只是不能在控件中直接
16、使用VB的Printer对象，否则VB会将你在控件中的打印输出处理为一个单独的页面，而是应该将Printer.hDc传给它，通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上，比如我们可以这样定义这个控件的打印方法： PrintIt 方法将对应的条形码输出到缺省打印机 Public Sub PrintIt（ByVal PrintDC As Long, _ Optional ByVal intPrintHeight As Integer = 10） 既然不能使用Printer对象，那么画线和输出文字也不能使用Printer对象的Line和Print方法，在
17、我们的程序中至少要申明以下三个Windows API函数： 移动画笔的位置 Private Declare Function MoveToEx Lib gdi32 （ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI） As Long 从画笔的当前位置到（x,y）画一条线 Private Declare Function LineTo Lib （ByVal hdc As Long, ByVal x As Long, ByVal y As Long） As Long 在（x,y）处输出一个字符串 Pri
18、vate Declare Function TextOut Lib Alias TextOutA （ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount 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）, 1arTable（19） =
