通過繪圖輸出到普通打印機。
條形碼的編碼規則，無非是通過線與線之間的寬度差來表示二進制1和0。只要了解條碼的編碼規則，就可以完整的繪制出來。
這種繪圖方法可以在普通打印機上得到可接受的結果。讓我們討論壹下最常見的代碼39的用法。
CODE39代碼的編碼規則是:
1，每五行代表壹個字符；
2.粗線表示1，細線表示0；
3.線與線之間的間隙寬度為1，窄的為0；
4.五條線加上它們之間的四個空隙是九位二進制碼，這九位中有三位必須是1，所以稱為39碼；
5.條形碼開頭和結尾的*標記開始和結束。
在我們的程序中，對常用字符進行編碼，先取線條粗細，再取間隙寬度，比如:
上圖中的字符*可以解釋為001101000，字符3可以解釋為110000100。
下面是我們給出的子流程:
註意:將字符串strBarCode對應的條形碼輸出到默認打印機。
私有子打印條形碼(_
字符串形式的ByVal strBarCode，_
可選ByVal intXPos As Integer = 0，_
可選ByVal intYPos As Integer = 0，_
可選ByVal int print height As Integer = 10，_
可選ByVal bolprintext As Boolean = True _
)
註:參數說明:
註意:strBarCode-要打印的條形碼字符串。
註意:intXPos，int ypos-打印條碼左上角坐標(默認為(0，0)，坐標刻度為:mm)。
註:八個打印高度(默認為1cm，坐標刻度為:mm)。
註意:bolprintext-是否打印人工標識字符(默認為true)。
註:條碼編碼格式“0”-“9”、“A-Z”、“A-”、“%”、“$”和“*”共40個字符。
字符串形式的靜態strBarTable(39)
註意:初始化條形碼編碼格式表。
str bartable(0)= " 001100100 "註:0
str bartable(1)= " 10010100 "註:1。
str bartable(2)= " 010010100 "註意:
移動畫筆的位置
私有聲明函數MoveToEx Lib " GDI 32 "(ByVal hdc As Long，ByVal x As
Long，ByVal y為Long，lpPoint為POINTAPI)為Long
從畫筆的當前位置到(x，y)畫壹條線
私有聲明函數line to Lib“GDI 32”(ByVal hdc為Long，ByVal x為Long，
只要，只要
在(x，y)輸出壹個字符串
私有聲明函數TextOut Lib“GDI 32”別名“TextOutA”(ByVal hdc As
Long，ByVal x為Long，ByVal y為Long，ByVal lpString為String，ByVal nCount
壹樣長)壹樣長
' move to ex()函數所需的參數
私有類型POINTAPI
xp壹樣長
yp壹樣長
結束類型
Dim papi As POINTAPI
畫線操作是(原打印機。線功能):
MoveToEx PrintDC，x + k，y，papi
LineTo PrintDC，x + k，y+in height+1
打印字符是(原始打印機。打印功能):
TextOut PrintDC，x，y+in thigh，Mid(strBC，i + 1，1)，1
響應者:scrocksWang-助理級別2-7 17:06
我們是深圳大振條碼技術有限公司北京分公司。目前公司已成立深圳沃馬科技有限公司，拓展系統集成業務。我們的主要品牌有:條碼打印機:大象ARGOX；東芝TEC掃描:密碼實驗室；；豐田電裝；；富士通富士通；NCR站臺。以上產品是目前為止中國最大的代理商，我們希望有機會繼續加強與業內人士的合作。歡迎電話聯系:010-82522465，82522466。我們將以最低的價格和最真誠的服務期待與您合作！