VB_条码打印

fieldmax

'CODE39码的编码规则是:
'１、每五条线表示一个字符；
'２、粗线表示１，细线表示０；
'３、线条间的间隙宽的表示１，窄的表示０；
'４、五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码；
'５、条形码的首尾各一个 * 标识开始和结束

1. 
   
2. Public Sub PrintBarCode(ByVal strBarCode As String, _
   
3.      Optional ByVal intXPos As Integer = 0, _
   
4.      Optional ByVal intYPos As Integer = 0, _
   
5.      Optional ByVal intPrintHeight As Integer = 10, _
   
6.      Optional ByVal bolPrintText As Boolean = True)
   
7. '参数说明:
   
8. 'strBarCode -要打印的条形码字符串
   
9. 'intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0)，坐标刻度为:毫米)
   
10. 'intHeight　　　　 - 打印高度(缺省为一厘米,坐标刻度为:毫米)
    
11. 'bolPrintText -是否打印人工识别字符(缺省为true)
    
12. '"0"-"9","A-Z","-","%","$"和"*" 的条码编码格式,总共 40 个字符
    
13. Static strBarTable(39) As String
    
14. '初始化条码编码格式表
    
15.      strBarTable(0) = "001100100"     ' 0
    
16.      strBarTable(1) = "100010100"     ' 1
    
17.      strBarTable(2) = "010010100"     ' 2
    
18.      strBarTable(3) = "110000100"     ' 3
    
19.      strBarTable(4) = "001010100"     ' 4
    
20.      strBarTable(5) = "101000100"     ' 5
    
21.      strBarTable(6) = "011000100"     ' 6
    
22.      strBarTable(7) = "000110100"     ' 7
    
23.      strBarTable(8) = "100100100"     ' 8
    
24.      strBarTable(9) = "010100100"     ' 9
    
25.      strBarTable(10) = "100010010"    ' A
    
26.      strBarTable(11) = "010010010"    ' B
    
27.      strBarTable(12) = "110000010"    ' C
    
28.      strBarTable(13) = "001010010"    ' D
    
29.      strBarTable(14) = "101000010"    ' E
    
30.      strBarTable(15) = "011000010"    ' F
    
31.      strBarTable(16) = "000110010"    ' G
    
32.      strBarTable(17) = "100100010"    ' H
    
33.      strBarTable(18) = "010100010"    ' I
    
34.      strBarTable(19) = "001100010"    ' J
    
35.      strBarTable(20) = "100010001"    ' K
    
36.      strBarTable(21) = "010010001"    ' L
    
37.      strBarTable(22) = "110000001"    ' M
    
38.      strBarTable(23) = "001010001"    ' N
    
39.      strBarTable(24) = "101000001"    ' O
    
40.      strBarTable(25) = "011000001"    ' P
    
41.      strBarTable(26) = "000110001"    ' Q
    
42.      strBarTable(27) = "100100001"    ' R
    
43.      strBarTable(28) = "010100001"    ' S
    
44.      strBarTable(29) = "001100001"    ' T
    
45.      strBarTable(30) = "100011000"    ' U
    
46.      strBarTable(31) = "010011000"    ' V
    
47.      strBarTable(32) = "110001000"    ' W
    
48.      strBarTable(33) = "001011000"    ' X
    
49.      strBarTable(34) = "101001000"    ' Y
    
50.      strBarTable(35) = "011001000"    ' Z
    
51.      strBarTable(36) = "000111000"    ' -
    
52.      strBarTable(37) = "100101000"    ' %
    
53.      strBarTable(38) = "010101000"    ' $
    
54.      strBarTable(39) = "001101000"    ' *
    
55.      If strBarCode = "" Then Exit Sub ' 不打印空串
    
56. '       保存打印机 ScaleMode
    
57.      Dim intOldScaleMode As ScaleModeConstants
    
58.      intOldScaleMode = Form1.ScaleMode
    
59. '       保存打印机 DrawWidth
    
60.      Dim intOldDrawWidth As Integer
    
61.      intOldDrawWidth = Form1.DrawWidth
    
62. '       保存打印机 Font
    
63.      Dim fntOldFont As StdFont
    
64.      Set fntOldFont = Form1.Font
    
65.      Form1.ScaleMode = vbTwips ' 设置打印用的坐标刻度为缇(twip=1)
    
66.      Form1.DrawWidth = 1     ' 线宽为 1
    
67.      Form1.FontName = "宋体" ' 打印在条码下方字符的字体和大小
    
68.      Form1.FontSize = 10
    
69.      Dim strBC As String         ' 要打印的条码字符串
    
70.      strBC = UCase(strBarCode)
    
71.      ' 将以毫米表示的 X 坐标转换为以缇表示
    
72.      Dim x As Integer
    
73.      x = Form1.ScaleX(intXPos, vbMillimeters, vbTwips)
    
74.      ' 将以毫米表示的 Y 坐标转换为以缇表示
    
75.      Dim y As Integer
    
76.      y = Form1.ScaleY(intYPos, vbMillimeters, vbTwips)
    
77. '       将以毫米表示的高度转换为以缇表示
    
78.      Dim intHeight As Integer
    
79.      intHeight = Form1.ScaleY(intPrintHeight, vbMillimeters, vbTwips)
    
80. '       是否在条形码下方打印人工识别字符
    
81.      If bolPrintText = True Then
    
82. '           条码打印高度要减去下面的字符显示高度
    
83.          intHeight = intHeight - Form1.TextHeight(strBC)
    
84.      End If
    
85.      Const intWidthCU As Integer = 30 ' 粗线和宽间隙宽度
    
86.      Const intWidthXI As Integer = 10 ' 细线和窄间隙宽度
    
87.      Dim intIndex As Integer            ' 当前处理的字符串索引
    
88.      Dim i As Integer, j As Integer, k As Integer    ' 循环控制变量
    
89. '       添加起始字符
    
90.      If Left(strBC, 1) <> "*" Then
    
91.          strBC = "*" & strBC
    
92.      End If
    
93. '       添加结束字符
    
94.      If Right(strBC, 1) <> "*" Then
    
95.          strBC = strBC & "*"
    
96.      End If
    
97. '       循环处理每个要显示的条码字符
    
98.      For i = 1 To Len(strBC)
    
99.          ' 确定当前字符在 strBarTable 中的索引
    
100.          Select Case Mid(strBC, i, 1)
     
101.          Case "*"
     
102.              intIndex = 39
     
103.          Case "$"
     
104.              intIndex = 38
     
105.          Case "%"
     
106.              intIndex = 37
     
107.          Case "-"
     
108.              intIndex = 36
     
109.          Case "0" To "9"
     
110.              intIndex = CInt(Mid(strBC, i, 1))
     
111.          Case "A" To "Z"
     
112.              intIndex = Asc(Mid(strBC, i, 1)) - Asc("A") + 10
     
113.          Case Else
     
114.              MsgBox "要打印的条形码字符串中包含无效字符！当前版本只支持字符 '0-9，A-Z,-,%,$*"
     
115.          End Select
     
116. '           是否在条形码下方打印人工识别字符
     
117.          If bolPrintText = True Then
     
118.              Form1.CurrentX = x
     
119.              Form1.CurrentY = y + intHeight
     
120.              Form1.Print Mid(strBC, i, 1)
     
121.          End If
     
122.          For j = 1 To 5
     
123. '               画细线
     
124.              If Mid(strBarTable(intIndex), j, 1) = "0" Then
     
125.                  For k = 0 To intWidthXI - 1
     
126.                      Form1.Line (x + k, y)-Step(0, intHeight)
     
127.                  Next k
     
128.                  x = x + intWidthXI
     
129. '               画宽线
     
130.              Else
     
131.                  For k = 0 To intWidthCU - 1
     
132.                      Form1.Line (x + k, y)-Step(0, intHeight)
     
133.                  Next k
     
134.                  x = x + intWidthCU
     
135.              End If
     
136. '               每个字符条码之间为窄间隙
     
137.              If j = 5 Then
     
138.                  x = x + intWidthXI * 3
     
139.                  Exit For
     
140.              End If
     
141. '               窄间隙
     
142.              If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then
     
143.                  x = x + intWidthXI * 3
     
144. '               宽间隙
     
145.              Else
     
146.                  x = x + intWidthCU * 2
     
147.              End If
     
148.          Next j
     
149.      Next i
     
150. '       恢复打印机 ScaleMode
     
151.      Form1.ScaleMode = intOldScaleMode
     
152. '       恢复打印机 DrawWidth
     
153.      Form1.DrawWidth = intOldDrawWidth
     
154. '       恢复打印机 Font
     
155.      Set Form1.Font = fntOldFont
     
156. End Sub
     

复制代码