久精品视频在线观看免费-92国产精品午夜免费福利视频-国产真实伦在线观看-久久97久久97精品免视看-国产卡一卡二卡三免费入口

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

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

即使在Windows時代，”LPT1:”和”PRN”仍然是可用的，下面我們先作一個試驗：打開一個DOS窗口，在提示符下輸入COPYCONLPT1:回車，然后隨便輸入一些字符，最后按F6鍵，打印機就開始工作了，它將打印出你輸入的那些字符！下面的代碼演示了直接將指令和字符發(fā)送給打印機：

Private Sub Command1_Click()

Dim strOut As String

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

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

Open“LPT1:”For BinaryAccessWrite As #1

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

Put #1,,strOut

‘關閉打印機端口

Close #1

End Sub

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

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

將在AR2400打印機上打印出內容為”012345”的CODE39格式的條形碼。具體的打印控制指令請參考打印機手冊。

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

二、利用畫圖方式輸出到普通打印機

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

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

１、每五條線表示一個字符

２、粗線表示１，細線表示０

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

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

５、條形碼的首尾各一個＊標識開始和結束

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

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

下面就是我們給出的子過程：

注釋：將字符串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_)

注釋：參數(shù)說明:

注釋：strBarCode-要打印的條形碼字符串

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

注釋：intHeight-打印高度(缺省為一厘米,坐標刻度為:毫米)

注釋：bolPrintText-是否打印人工識別字符(缺省為true)

注釋：初始化條碼編碼格式表

strBarTable(0)="001100100"注釋：0

strBarTable(1)="100010100"注釋：1

strBarTable(2)="010010100"注釋：2

strBarTable(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)="001010010"注釋：D

strBarTable(14)="101000010"注釋：E

strBarTable(15)="011000010"注釋：F

strBarTable(16)="000110010"注釋：G

strBarTable(17)="100100010"注釋：H

strBarTable(18)="010100010"注釋：I

注釋："0"-"9","A-Z","-","%","$"和"*"的條碼編碼格式,總共40個字符

StaticstrBarTable(39)AsString
 

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