作者：四川、李佑民

條形碼作為一種機(jī)器可識(shí)別的圖形，它能快速、準(zhǔn)確地標(biāo)識(shí)某種產(chǎn)品或商品，在許多數(shù)據(jù)庫(kù)應(yīng)用中起作很重要的作用，如超市收銀、車(chē)站售票等場(chǎng)合。當(dāng)某件物品上帶有的條形碼被條碼掃描器正確解讀后，將會(huì)得到該物品的唯一標(biāo)識(shí)字符串，通過(guò)檢索數(shù)據(jù)庫(kù)我們就可以很容易知道它的一些其它屬性并作相應(yīng)處理。雖然在Internet上能找到許多免費(fèi)和不免費(fèi)的條形碼打印控件，但是這些控件除了使用不方便外，還有一個(gè)最大的缺點(diǎn)：它們的打印輸出不能和我們的程序共存在一個(gè)打印頁(yè)面上，比如說(shuō)在一個(gè)過(guò)程中，我們先向系統(tǒng) Printer 中輸出一些內(nèi)容，然后再調(diào)用控件的條形碼打印方法，最后打印的結(jié)果為兩頁(yè)！，如果現(xiàn)在我們要處理一張車(chē)票，上面不僅要打印條形碼，還要有終點(diǎn)站和票價(jià)等信息，那么控件就變得不可用。對(duì)程序員來(lái)說(shuō)，可能還是希望能了解條形碼打印的原理，本文提出兩種打印方法與同行們探討。

一、直接利用有條形碼打印功能的打印機(jī)

　　有許多打印機(jī)能夠直接打印條形碼，但在 VB 中，我們?cè)冢模希訒r(shí)代熟悉的LPRINT語(yǔ)句已經(jīng)不能再使用了，打印操作被Windows的Spool系統(tǒng)完全接管，輸出是以“頁(yè)”為單位，所有的打印輸出都被Windows轉(zhuǎn)換為圖形發(fā)送給打印驅(qū)動(dòng)程序。而要使打印機(jī)打印條形碼就必須將對(duì)應(yīng)的ESC序列直接發(fā)送給它，因此我們就要想辦法避開(kāi)Windows的Spool系統(tǒng)，也就是說(shuō)再程序中不能使用Printer對(duì)象和Printers集合處理打印輸出，在VB中要將ESC指令直接發(fā)送給打印機(jī)至少有三種方法，前兩種方法是調(diào)用Windows API 函數(shù)：Escape()和SpoolFile()，第三種是最容易的方法：打開(kāi)打印機(jī)端口進(jìn)行二進(jìn)制存取，我們主要考慮這種方法。

　　即使在Windows時(shí)代，”LPT1:”和”P(pán)RN”仍然是可用的，下面我們先作一個(gè)試驗(yàn)：打開(kāi)一個(gè)DOS窗口，在提示符下輸入COPY CON LPT1:回車(chē)，然后隨便輸入一些字符，最后按F6鍵，打印機(jī)就開(kāi)始工作了，它將打印出你輸入的那些字符！下面的代碼演示了直接將指令和字符發(fā)送給打印機(jī)：

Private Sub Command1_Click()

　　Dim strOut As String

　　StrOut = “這是直接發(fā)送到打印機(jī)端口的字符串”

　　‘ 打開(kāi)打印機(jī)端口，其中的”LPT1:”可能需要根據(jù)你的打印機(jī)設(shè)置而改變

　　Open “LPT1:” For Binary Access Write As #1

　　‘ 發(fā)送給打印機(jī)，注意語(yǔ)句的最后一個(gè)參數(shù)必須是變量

　　　　Put #1, ,strOut

　　　　‘ 關(guān)閉打印機(jī)端口

　　　　Close #1

End Sub

　　各種打印機(jī)打印條形碼的指令可能不同，比如將上面的變量 strOut賦值為：

　　strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345”

　　將在 AR2400 打印機(jī)上打印出內(nèi)容為”012345”的 CODE39 格式的條形碼。具體的打印控制指令請(qǐng)參考打印機(jī)手冊(cè)。

　　用這種方法的缺點(diǎn)：一是過(guò)份依賴(lài)打印機(jī)本身，而有條形碼打印功能的打印機(jī)通常要比普通打印機(jī)昂貴，這會(huì)使構(gòu)造應(yīng)用系統(tǒng)不夠經(jīng)濟(jì)；二是所有的打印輸出都必須你自己處理，比如打印定位就很浪費(fèi)時(shí)間。

二、利用畫(huà)圖方式輸出到普通打印機(jī)

　　條形碼的編碼規(guī)則不外乎是通過(guò)線條和線條間間隙的寬窄不同來(lái)表示二進(jìn)制的１和０，只要我們了解了條形碼的編碼規(guī)則，完全可以用畫(huà)圖的方式在普通打印機(jī)上得到可以接受的效果。下面我們就使用最普遍的CODE39碼進(jìn)行討論。

　　CODE39碼的編碼規(guī)則是：

１、 每五條線表示一個(gè)字符；

２、 粗線表示１，細(xì)線表示０；

３、 線條間的間隙寬的表示１，窄的表示０；

４、 五條線加上它們之間的四條間隙就是九位二進(jìn)制編碼，而且這九位中必定有三位是1，所以稱(chēng)為39碼；

５、 條形碼的首尾各一個(gè)＊標(biāo)識(shí)開(kāi)始和結(jié)束

　　在我們的程序中，給常用的字符都進(jìn)行編碼，解讀時(shí)先取線條粗細(xì)，再取間隙寬窄，如：


　　上圖中的字符＊就可以解讀為 001101000，字符３解讀為 110000100

　　下面就是我們給出的子過(guò)程：

注釋?zhuān)?將字符串 strBarCode 對(duì)應(yīng)的條形碼輸出到缺省打印機(jī)

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 _

)

注釋?zhuān)?參數(shù)說(shuō)明:

注釋?zhuān)?strBarCode　　　　- 要打印的條形碼字符串

注釋?zhuān)?intXPos, intYPos - 打印條形碼的左上角坐標(biāo)(缺省為(0,0)，坐標(biāo)刻度為:毫米)

注釋?zhuān)?intHeight　　　　 - 打印高度(缺省為一厘米,坐標(biāo)刻度為:毫米)

注釋?zhuān)?bolPrintText　　 - 是否打印人工識(shí)別字符(缺省為true)


注釋?zhuān)?"0"-"9","A-Z","-","%","$"和"*" 的條碼編碼格式,總共 40 個(gè)字符

Static strBarTable(39) As String

注釋?zhuān)?初始化條碼編碼格式表

　　strBarTable(0) = "001100100"　　 注釋?zhuān)?0

　　strBarTable(1) = "100010100"　　 注釋?zhuān)?1

　　strBarTable(2) = "010010100"　　 注釋?zhuān)?2

　　strBarTable(3) = "110000100"　　 注釋?zhuān)?3

　　strBarTable(4) = "001010100"　　 注釋?zhuān)?4

　　strBarTable(5) = "101000100"　　 注釋?zhuān)?5

　　strBarTable(6) = "011000100"　　 注釋?zhuān)?6

　　strBarTable(7) = "000110100"　　 注釋?zhuān)?7

　　strBarTable(8) = "100100100"　　 注釋?zhuān)?8

　　strBarTable(9) = "010100100"　　 注釋?zhuān)?9

　　strBarTable(10) = "100010010"　　注釋?zhuān)?A

　　strBarTable(11) = "010010010"　　注釋?zhuān)?B

　　strBarTable(12) = "110000010"　　注釋?zhuān)?C

　　strBarTable(13) = "001010010"　　注釋?zhuān)?D

　　strBarTable(14) = "101000010"　　注釋?zhuān)?E

　　strBarTable(15) = "011000010"　　注釋?zhuān)?F

　　strBarTable(16) = "000110010"　　注釋?zhuān)?G

　　strBarTable(17) = "100100010"　　注釋?zhuān)?H

　　strBarTable(18) = "010100010"　　注釋?zhuān)?I

　　strBarTable(19) = "001100010"　　注釋?zhuān)?J

　　strBarTable(20) = "100010001"　　注釋?zhuān)?K

　　strBarTable(21) = "010010001"　　注釋?zhuān)?L

　　strBarTable(22) = "110000001"　　注釋?zhuān)?M

　　strBarTable(23) = "001010001"　　注釋?zhuān)?N

　　strBarTable(24) = "101000001"　　注釋?zhuān)?O

　　strBarTable(25) = "011000001"　　注釋?zhuān)?P

　　strBarTable(26) = "000110001"　　注釋?zhuān)?Q

　　strBarTable(27) = "100100001"　　注釋?zhuān)?R

　　strBarTable(28) = "010100001"　　注釋?zhuān)?S

　　strBarTable(29) = "001100001"　　注釋?zhuān)?T

　　strBarTable(30) = "100011000"　　注釋?zhuān)?U

　　strBarTable(31) = "010011000"　　注釋?zhuān)?V

　　strBarTable(32) = "110001000"　　注釋?zhuān)?W

　　strBarTable(33) = "001011000"　　注釋?zhuān)?X

　　strBarTable(34) = "101001000"　　注釋?zhuān)?Y

　　strBarTable(35) = "011001000"　　注釋?zhuān)?Z

　　strBarTable(36) = "000111000"　　注釋?zhuān)?-

　　strBarTable(37) = "100101000"　　注釋?zhuān)?%

　　strBarTable(38) = "010101000"　　注釋?zhuān)?$

　　strBarTable(39) = "001101000"　　注釋?zhuān)?*

　　If strBarCode = "" Then Exit Sub 注釋?zhuān)?不打印空串

　　注釋?zhuān)?保存打印機(jī) ScaleMode

　　Dim intOldScaleMode As ScaleModeConstants

　　intOldScaleMode = Printer.ScaleMode

　　注釋?zhuān)?保存打印機(jī) DrawWidth

　　Dim intOldDrawWidth As Integer

　　intOldDrawWidth = Printer.DrawWidth

　　注釋?zhuān)?保存打印機(jī) Font

　　Dim fntOldFont As StdFont

　　Set fntOldFont = Printer.Font

　　Printer.ScaleMode = vbTwips 注釋?zhuān)?設(shè)置打印用的坐標(biāo)刻度為緹(twip=1)

　　Printer.DrawWidth = 1　　 注釋?zhuān)?線寬為 1

　　Printer.FontName = "宋體" 注釋?zhuān)?打印在條碼下方字符的字體和大小

　　Printer.FontSize = 10

　　Dim strBC As String　　　　 注釋?zhuān)?要打印的條碼字符串

　　strBC = Ucase(strBarCode)

　　注釋?zhuān)?將以毫米表示的 X 坐標(biāo)轉(zhuǎn)換為以緹表示

　　Dim x As Integer

　　x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips)

　　注釋?zhuān)?將以毫米表示的 Y 坐標(biāo)轉(zhuǎn)換為以緹表示

　　Dim y As Integer

　　y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips)

　　注釋?zhuān)?將以毫米表示的高度轉(zhuǎn)換為以緹表示

　　Dim intHeight As Integer

　　intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips)


　　注釋?zhuān)?是否在條形碼下方打印人工識(shí)別字符

　　If bolPrintText = True Then

　　　　注釋?zhuān)?條碼打印高度要減去下面的字符顯示高度

　　　　intHeight = intHeight - Printer.TextHeight(strBC)

　　End If

　　Const intWidthCU As Integer = 30 注釋?zhuān)?粗線和寬間隙寬度

　　Const intWidthXI As Integer = 10 注釋?zhuān)?細(xì)線和窄間隙寬度

　　Dim intIndex As Integer　　　　　　注釋?zhuān)?當(dāng)前處理的字符串索引

　　Dim i As Integer, j As Integer, k As Integer　　注釋?zhuān)?循環(huán)控制變量



　　注釋?zhuān)?添加起始字符

　　If Left(strBC, 1) <> "*" Then

　　　　strBC = "*" & strBC

　　End If

　　注釋?zhuān)?添加結(jié)束字符

　　If Right(strBC, 1) <> "*" Then

　　　　strBC = strBC & "*"

　　End If

　　

　　注釋?zhuān)?循環(huán)處理每個(gè)要顯示的條碼字符

　　For i = 1 To Len(strBC)

　　　　注釋?zhuān)?確定當(dāng)前字符在 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

　　　　　　MsgBox "要打印的條形碼字符串中包含無(wú)效字符！當(dāng)前版本只支持字符 注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?注釋?zhuān)篈注釋?zhuān)?注釋?zhuān)篫注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?注釋?zhuān)?#36;注釋?zhuān)汉妥⑨專(zhuān)?注釋?zhuān)?quot;

　　　　End Select

　　　　注釋?zhuān)?是否在條形碼下方打印人工識(shí)別字符

　　　　If bolPrintText = True Then

　　　　　　Printer.CurrentX = x

　　　　　　Printer.CurrentY = y + intHeight

　　　　　　Printer.Print Mid(strBC, i, 1)

　　　　End If

　　　　For j = 1 To 5

　　　　　　注釋?zhuān)?畫(huà)細(xì)線

　　　　　　If Mid(strBarTable(intIndex), j, 1) = "0" Then

　　　　　　　　For k = 0 To intWidthXI - 1

　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight)

　　　　　　　　Next k

　　　　　　　　x = x + intWidthXI

　　　　　　注釋?zhuān)?畫(huà)寬線

　　　　　　Else

　　　　　　　　For k = 0 To intWidthCU - 1

　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight)

　　　　　　　　Next k

　　　　　　　　x = x + intWidthCU

　　　　　　End If

　　　　　　注釋?zhuān)?每個(gè)字符條碼之間為窄間隙

　　　　　　If j = 5 Then

　　　　　　　　x = x + intWidthXI * 3

　　　　　　　　Exit For

　　　　　　End If

　　　　　　注釋?zhuān)?窄間隙

　　　　　　If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then

　　　　　　　　x = x + intWidthXI * 3

　　　　　　注釋?zhuān)?寬間隙

　　　　　　Else

　　　　　　　　x = x + intWidthCU * 2

　　　　　　End If

　　　　Next j

　　Next i

　　注釋?zhuān)?恢復(fù)打印機(jī) ScaleMode

　　Printer.ScaleMode = intOldScaleMode

　　注釋?zhuān)?恢復(fù)打印機(jī) DrawWidth

　　Printer.DrawWidth = intOldDrawWidth

　　注釋?zhuān)?恢復(fù)打印機(jī) Font

　　Set Printer.Font = fntOldFont

End Sub
　　最理想的情況是將它做成一個(gè)控件，在控件中提供一個(gè)打印方法，該方法實(shí)現(xiàn)與上

　　那個(gè)過(guò)程大致相同，只是不能在控件中直接使用VB的Printer對(duì)象，否則VB會(huì)將你在控件中的打印輸出處理為一個(gè)單獨(dú)的頁(yè)面，而是應(yīng)該將Printer.hDc傳給它，通過(guò)調(diào)用那些需要指定 HDC 的Windows API函數(shù)實(shí)現(xiàn)與容器的打印輸出在一個(gè)頁(yè)面上，比如我們可以這樣定義這個(gè)控件的打印方法：

注釋?zhuān)?PrintIt 方法將對(duì)應(yīng)的條形碼輸出到缺省打印機(jī)

Public Sub PrintIt(ByVal PrintDC As Long, _

　　 Optional ByVal intXPos As Integer = 0, _

　　Optional ByVal intYPos As Integer = 0, _

　　 Optional ByVal intPrintHeight As Integer = 10)

　　既然不能使用Printer對(duì)象，那么畫(huà)線和輸出文字也不能使用Printer對(duì)象的Line和Print方法，在我們的程序中至少要申明以下三個(gè)Windows API函數(shù)：

‘ 移動(dòng)畫(huà)筆的位置

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long

‘ 從畫(huà)筆的當(dāng)前位置到（x,y）畫(huà)一條線

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

‘ 在（x,y）處輸出一個(gè)字符串

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 nCount As Long) As Long

‘ MoveToEx() 函數(shù)需要的參數(shù)

Private Type POINTAPI

　　xp As Long

　　yp As Long

End Type

Dim papi As POINTAPI

畫(huà)線操作為(原來(lái)的Printer.Line函數(shù))：

MoveToEx PrintDC, x + k, y, papi

LineTo PrintDC, x + k, y + intHeight + 1

打印字符為(原來(lái)的Printer.Print函數(shù))：

TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1