2023年12月21日发(作者：蒙俨雅)

Zebra条码打印机汉字价签打印完全解决方案

本人所在的单位是一家零售公司，因此对于条码的印制是经常遇上的。公司一共有4家店，每家店使用的条码打印机均为Zebra S4M。使用的条码打印程序是用VF6编写的，而大家对VF6不熟悉因此给后续的客制化开发带来很大的困难，因此本人想用自己比较熟悉的编程语言进行改写(后面的测试代码均使用VB6或2005语言)。

首先对用VF6编写的打印程序进行了简单的分析，其实现原理大致如下。每个价签格式均使用ZPL语言编写好，然后再根据打印价签格式的不同调用不同的配置文件。配置文件内容如下：

^XA

^LH2

%BARCODE ^FO28,8^BEN,65,Y,N^FD@^FS

%BARCODE ^FO304,8^BEN,65,Y,N^FD@^FS

%ITEMDESP ^FO10,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMDESP ^FO280,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMNO ^FO35,133^ADN,28,14^FD @^FS

%ITEMNO ^FO320,133^ADN,28,14^FD @^FS

%QUANTITY ^PQ@^FS

^XZ

如果你接触过ZPL语言的话，对上面的代码你会比较熟悉，但是对于其中%BARCODE，^WINFONT(宋体,16,0,0,Y,N,Y)，@的代码你可能觉得比较难理解，不要紧我会分析给大家看的。

^XA 发送给打印机的开始信号

^LH2,1 定义价签的原点位置

%BARCODE ^FO28,8^BEN,65,Y,N^FD@^FS %BARCODE这个是代表VF6数据库中的一张数据表中有叫BARCODE 的列，^FO28,8^BEN,65,Y,N代表的是，在价签的28，8的坐标位置打印EAN条码，条码高度为65个点。这里的@代表配置文件中的变量，它被数据库中BARCODE字段的数据替换。

%BARCODE ^FO304,8^BEN,65,Y,N^FD@^FS

%ITEMDESP ^FO10,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS ^WINTFONT是自己创造的一个函数，说白了这个函数就是为了解决不能打印汉字而设置的，如果你直接发送这个函数给打印机，打印机是不能够识别的，对于这个函数的转换，其实就是本篇文章的重点，会在后面做详细说明。

%ITEMDESP ^FO280,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMNO ^FO35,133^ADN,28,14^FD @^FS

%ITEMNO ^FO320,133^ADN,28,14^FD @^FS

%QUANTITY ^PQ@^FS

^XZ 发送结束信号

通过以上的分析你可能明白了配置文件的内容。

下面再说下打印原理，如果你使用WINDOWS的SPOOLER打印服务那么你是很难进行打印控制的。斑马打印机将打印指令集成在打印芯片中，你发送打印指令给打印机，打印机接受指令后才进行打印操作，而发送的打印指令就是ZPL打印语言，也就是上面价签配置文件的内容。通过上面的分析你可能明白了整个程序的机制。就是，程序读取价签配置数据，然后将数据库中的内容替换价签配置文件中需要替换的数据，最后形成一个ZPL指令流，最后发送给打印机，打印机在接受这些指令流后进行打印。

接下来我们说下汉字打印。Zebra S4M打印机是不能识别汉字的，那么怎么解决这个问题呢，我在网上搜索了下，大致有两种解决方案：

（一）使用一个名字叫的连接库文件。这个文件有一个名为GETFONTHEX的导出函数，使用方式如下（VB6）

Declare Function GETFONTHEX Lib "." (ByVal chnstr As String, ByVal

fontname As String, ByVal orient As Integer, ByVal height As Integer, ByVal width As Integer, ByVal bold As Integer, ByVal italic As Integer, ByVal hexbuf As String) As Integer

通过以下的测试

Private Sub Form_Click()

Dim cBuf As String * 1024

nCount = GETFONTHEX("一", "宋体", 0, 200, 200, 1, 0, cBuf)

cBuf

' = cBuf

End Sub

会得到这样的结果

~DGOUTSTR01,10192,052,z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0jT07FkG01HFCk07IFjY01JFCjX07KFjW01LF8jV0MFEjU03NF8jT0OFEiN0gK03PF8jR0QFCV07jMFV07jMFCU07jNFU07jNFCT01jNFCU07jMFCU01jMFCV07KF8jW01HFCK0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0yJ0

这样的结果是不是有点眼熟啊，其实他就是将“一”字转换成图象再转换成十六进制编码最后进行ZPL的压缩，利用“~DG”命令将编码发送给打印机最后利用“^XG”命令进行图象打印。整个结果中~DGOUTSTR01这个命令是将图象编码发送给打印机并存贮在打印机存储卡上同时编码文件被命名为OUTSTR01。10192,052是指打印图像的总字节和每行的字节数，最后的东西就是图象编码。

（二）根据一的思路自己进行开发转换库，这种方式最灵活但难度比较大。下面我会重点对自己开发转换库进行讲解，后面的代码全部采用2005开发。

对于自己开发首先你要解决下面几个问题。

（1）如何编码

一般来说我们的打印机都是进行点阵打印，那么对于一个点来说如果打印的话则编码为“1”否则为“0”,那么一个十六进制的数来说它可以对应4个点，比如我们对“....”可以编码成“1111”转换成十六进制数来说就是F，同理对“. ..”来说十六进制数就是B了。

（2）字节数的计算

总字节数=行宽*列高/8

每行字节数=行宽/8

（3）ZPL压缩代码

什么是ZPL压缩代码呢，比如我们有这么一个图形“„„„„”一共12个点，进行编码后会是“FFF”根据ZPL压缩定义的话，我们可以写成“IF”，你看是不是比原来的“FFF”少了一个数据啊，这样的话是有利于减少数据量，提高与打印机的通信速度。那么ZPL压缩是怎么定义的呢。

G H I J K L M N O P Q R S T U V W X Y 对应1,2,3,4„„18,19。

g h i j k l m n o p q r s t u v w x y z 对应20,40,60,80„„340,360,380,400。

由于十六进制数占用了A,B,C,D,E,F所以要从G或g开始。还有就是压缩代码不分先后顺序的，比如Hi8和iH8实质是一样的。

解决了上述问题后就看下原代码吧。

1. Imports

2.

3. Imports g

4.

5. Imports g

6.

7. Public Class FontConvertBmp

8.

9. Private m_FontName As String '字体名字

10.

11. Private m_FontSize As Integer '字体大小

12.

13. Private m_String As String '需要打印的文本

14.

15. Private m_FontBold As Boolean '字体样式

16.

17. Private m_X As Integer, m_Y As Integer '打印时候的X,Y坐标

18.

19. Private m_XZoom As Integer, m_YZoom As Integer '打印时候的X,Y方向的放大倍数最大只能为10倍

20.

21. Private List1 As List(Of Char), List2 As List(Of Integer) '压缩代码集合

22.

23. Private S As String

24.

25. Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As IntPtr) As Integer

26.

27. Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As IntPtr) As IntPtr

28.

29. Public Property XZoom() As Integer

30.

31. Get

32.

33. Return m_XZoom

34.

35. End Get

36.

37. Set(ByVal value As Integer)

38.

39. If value > 0 AndAlso value <= 10 Then

40.

41. m_XZoom = value

42.

43. End If

44.

45. End Set

46.

47. End Property

48.

49. Public Property YZoom() As Integer

50.

51. Get

52.

53. Return m_YZoom

54.

55. End Get

56.

57. Set(ByVal value As Integer)

58.

59. If value > 0 AndAlso value <= 10 Then

60.

61. m_YZoom = value

62.

63. End If

64.

65. End Set

66.

67. End Property

68.

69. Public Property X() As Integer

70.

71. Get

72.

73. Return m_X

74.

75. End Get

76.

77. Set(ByVal value As Integer)

78.

79. If value >= 0 Then

80.

81. m_X = value

82.

83. End If

84.

85. End Set

86.

87. End Property

88.

89. Public Property Y() As Integer

90.

91. Get

92.

93. Return m_Y

94.

95. End Get

96.

97. Set(ByVal value As Integer)

98.

99. If value >= 0 Then

100.

101. m_Y = value

102.

103. End If

104.

105. End Set

106.

107. End Property

108.

109. Public Property FontName() As String

110.

111. Get

112.

113. Return m_FontName

114.

115. End Get

116.

117. Set(ByVal value As String)

118.

119. m_FontName = value

120.

121. End Set

122.

123. End Property

124.

125.

126.

127. Public Property FontSize() As Integer

128.

129. Get

130.

131. Return m_FontSize

132.

133. End Get

134.

135. Set(ByVal value As Integer)

136.

137. If value > 7 AndAlso value <= 500 Then

138.

139. m_FontSize = value

140.

141. End If

142.

143. End Set

144.

145. End Property

146.

147.

148.

149. Public Property Text() As String

150.

151. Get

152.

153. Return m_String

154.

155. End Get

156.

157. Set(ByVal value As String)

158.

159. m_String = value

160.

161. End Set

162.

163. End Property

164.

165. Public Property FontBold() As Boolean

166.

167. Get

168.

169. Return m_FontBold

170.

171. End Get

172.

173. Set(ByVal value As Boolean)

174.

175. m_FontBold = value

176.

177. End Set

178.

179. End Property

180.

181. Public Sub New()

182.

183. m_FontName = "宋体"

184.

185. m_FontSize = 12

186.

187. m_FontBold = False

188.

189. m_X = 1

190.

191. m_Y = 1

192.

193. m_XZoom = 1

194.

195. m_YZoom = 1

196.

197. InitDictionary()

198.

199. End Sub

200.

201. Public Function Convert() As String

202.

203. Dim Hdc As IntPtr

204.

205.

206.

207. Hdc = CreateCompatibleDC()

208.

209.

210.

211. Dim Graphic As Graphics = c(Hdc)

212.

213.

214.

215. Dim Width As Integer, Height As Integer

216.

217. Dim G As Graphics, Image As Bitmap

218.

219. Dim Font As Font

220.

221.

222.

223. If m_FontBold = True Then

224.

225. Font = New Font(m_FontName, m_FontSize, , )

226.

227. Else

228.

229. Font = New Font(m_FontName, m_FontSize, r, )

230.

231. End If

232.

233.

234.

235. Width = (CInt(eString(m_String, Font).Width) 8 + 1) * 8 '将行规格话便于计算字节

236.

237. Height = '列高

238.

239. Image = New Bitmap(Width, Height, 32bppArgb)

240.

241. G = age(Image)

242.

243. ()

244.

245. ring(m_String, Font, , 0, 2) '将文本写入图片

246.

247. Dim Value As Integer = Width * Height

248.

249. Dim TempString As New StringBuilder(Value)

250.

251. Dim DesString As New StringBuilder(Value)

252.

253. ("~DGOUTSTR01," & Width * Height 8 & "," & Width 8 & ",")

254.

255. Dim i As Integer, j As Integer

256.

257. Dim Sum As Integer

258.

259. For j = 0 To Height - 1 '由于内存中的图片是倒置，所以要反取数据

260.

261. For i = 0 To Width 4 - 1

262.

263. Sum = 0

264.

265. For m As Integer = 0 To 3 '由于4个点可用1个十六进制数表示因此一次取4个点进行转换

266.

267. If el(i * 4 + m, j).B = 0 Then '由于只打印黑白点所以根据RGB分量判断是否需要打印该点

268.

269. Sum += 1 << (3 - m) '通过移位操作将该点的信息与一个BIT相对应

270.

271. End If

272.

273. Next

274.

275. (Hex(Sum)) '将取出的点转换成16进制数

276.

277. Next

278.

279. Next

280.

281. Dim Count As Integer = 1 '将转成16进制的文本进行压缩

282.

283. For i = 1 To - 1

284.

285. If (i - 1) = (i) Then

286.

287. Count += 1

288.

289. If i = - 1 Then

290.

291. (CompressCode(Count) & (i))

292.

293. End If

294.

295. Else

296.

297. (CompressCode(Count) & (i - 1))

298.

299. S =

300.

301. Count = 1

302.

303. End If

304.

305. Next

306.

307. (vbCrLf & "^FO" & m_ng & "," & m_ng & "^XGOUTSTR01," & m_XZoom & "," & m_YZoom & ",^FS")

308.

309. DeleteDC(Hdc)

310.

311. e()

312.

313. e()

314.

315. e()

316.

317. Return ng

318.

319. End Function

320.

321. Private Function CompressCode(ByRef Input As Integer) As String

322.

323. If Input > 1 Then

324.

325. For i As Integer = - 1 To 0 Step -1 '使用递归和贪婪算法将连续的数字转换成ZPL压缩代码，如000可用I0表示

326.

327. If Input >= (i) Then

328.

329. S &= (i)

330.

331. Input -= (i)

332.

333. CompressCode(Input)

334.

335. End If

336.

337. Next

338.

339. End If

340.

341. Return S

342.

343. End Function

344.

345. Private Sub InitDictionary()

346.

347. '将ZPL定义的压缩代码写入集合

348.

349. List1 = New List(Of Char)

350.

351. List2 = New List(Of Integer)

352.

353. For i As Integer = 0 To 18

354.

355. (ChrW(71 + i))

356.

357. (i + 1)

358.

359. Next

360.

361. For i As Integer = 0 To 19

362.

363. (ChrW(103 + i))

364.

365. (20 * (i + 1))

366.

367. Next

368.

369. End Sub

370.

371. End Class

372.

接下来我们开始分析价签配置文件了，对于%开头的词我们仍然认定为数据库中列，@定义为变量，定义^WINFONT(变量1,变量2,变量3,变量4,变量5,变量6)函数，其中变量分别对应 字体名，字号，X坐标，Y坐标，是否为粗体，X方向放大倍数，Y方向放大倍数。程序的实现原理就是将“%”，“^WINFONT”，“@”通过正则表达式将其从文件中提取出来来，然后根据各自的功能进行相应的拆分，替换转换成ZPL指令流，最后再将其发送到打印机。

在写分析价签配置文件分析库和打印接口的时候应该有哪些重要地方呢

（一）

正则表达式

有四个表达式分别为"^%w*", "^WINFONTS*)", "^FD.*FS$", "@"，通过对价签配置文件每行的分析来获取相应的数据比如有这么一行数据

%产地 ^WINFONT(黑体,40,100,200,Y,1,2)^FD@^FS

通过正则分析后会得到如下数据“%产地”，“^WINFONT(黑体,40,100,200,Y,1,2)”，“^FD@^FS”，“@”，对“%产地”的值去调“%”后就是数据表中名为“产地”的列。

将“^WINFONT(黑体,40,100,200,Y,1,2)”拆份后会得到“黑体”，“40”，“100”，“200”，“Y”，“1”，“2”。将这些变量赋给上面的汉字转换类中的属性“FontName”，“FontSize”，“X”，“Y”，“FontBold”，“Xzoom”，“Yzoom”。

将“@”替换成“产地”中的数据然后赋给上面的汉字转换类中的属性“Text”

通过上面的操作后就将这些数据转换成ZPL指令流了，比如我们的数据库中有个字段为“产地”，有一数据值为“四川1”，价签配置文件内容为“^XA %产地^WINFONT(黑体,40,100,200,Y,1,2)^FD@^FS ^XZ ”那么通过分析转换后就会得到这样的结果^XA~DGOUTSTR01,690,15,nJ07CI01EgI078I01ER0MFEI0781F01ER0MFEI0781F01EI0FCM0MFEI0781F01EH03HFM0F03C781EI0780F01EH07HF8L0F03C781EI0780F01EH0F87CL0F03C781EI0780F01EH0F03CL0F03C781EI0780F01E01F01EL0F038781EI0780F01E01E01EL0F038781EI0780F01E01E01EL0F038781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0F80F01E03CH0FL0F0F8781EI0F80F01E03CH0FL0F0F0781EI0FH0F01E03CH0FL0F1F0781EI0FH0F01E03CH0FL0F1E07HDEI0FH0F01E03CH0FL0F3E07FDEI0FH0F01E03CH0FL0F7C07FDEI0FH0F01E03CH0FL0HF8H07DEH01FH0F01E01E01EL0F38I01EH01EH0F01E01E01EL0FK01EH01EH0F01E01F01EL0FK01EH01EH0

F01EH0F03CL0FK01EH03CH0F01EH0F87CL0MFEH03CH0F01EH07HF8L0MFEH07C01F01EH03HFM0MFEH07801F01EI0FCM0FK01EH0F801F01ER0FK01E01FK01ER0FK01EH0FK01EgN01EpY0

^FO100,200^XGOUTSTR01,1,2,^FS^XZ

（二）

如何打印

指令流生成了如何发送呢，我采取的方式是通过CreateFile这个API函数直接发送数据到打印端口。注意为了提高效率，我们会采用边生成指令流边打印的方式操作，这样会提高使用效率。对于打印连续打印价签会节约不少的时间。

原代码如下：

1. Imports rExpressions

2. Imports

3. Imports

4. Imports pServices

5. Imports

6. Imports ndles

7. Public Class FormatText

8. Private List As String() = New String(3) {"^%w*", "^WINFONTS*)", "^FD.*FS$", "@"} '正则表达式

9. Private m_ColnameString As String '数据库字段名

10. Private m_IntputString As String '需要分析的价签配置文件数据

11. Private m_FileName As String '价签配置文件名

12. Private m_Device As String '打印机端口名比如 COM1 LPT1等

13. Private TempArrary(3) As String

14. Private m_Table As DataTable '数据表接口

15. Public Event ValueChaged(ByVal Precent As Integer) '提供一个事件，将转换速度传出可以是用户看到数据的转换进度

16. _

17. Private Shared Function CreateFile(ByVal lpFileName As String, ByVal dwDesiredAccess As 32, ByVal dwShareMode As 32, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As 32, ByVal dwFlagsAndAttributes As 32, ByVal hTemplateFile As IntPtr) As SafeFileHandle

18. End Function '通过该函数象打印机发送指令流

19.

20. Private Const GENERIC_WRITE =

21. Private Const CREATE_ALWAYS = 2

22. Private Const FILE_SHARE_WRITE =

23. Private Const OPEN_EXISTING = 3

24.

25.

26. Public Property Device() As String

27. Get

28. Return m_Device

29. End Get

30. Set(ByVal value As String)

31. m_Device = value

32. End Set

33. End Property

34. Public Sub New()

35. ()

36. End Sub

37. Public Sub New(ByVal FileNameValue As String)

38. m_FileName = FileNameValue

39. End Sub

40. Public Property Table() As DataTable

41. Get

42. Return m_Table

43. End Get

44. Set(ByVal value As DataTable)

45. m_Table = value

46. End Set

47. End Property

48. Public Property FileName() As String

49. Get

50. Return m_FileName

51. End Get

52. Set(ByVal value As String)

53. m_FileName = value

54. End Set

55. End Property

56. Private Sub InitList() '初始化正则表达式集合

57. For i As Integer = 0 To - 1

58. TempArrary(i) = (m_IntputString, List(i)).Value

59.

60. Next

61. If TempArrary(0) <> Then '如果有需要使用数据库的数据则返回数据库列名

62. m_ColnameString = Trim(TempArrary(0).Substring(1))

63. End If

64.

65. End Sub

66. Private Function RePlace(ByVal RePlaceString As String) As String

67.

68. Dim ZPL As New nvertBmp, DesString() As String '引用汉字转换类

69.

70. If TempArrary(3) = "@" AndAlso TempArrary(0) <> "" AndAlso TempArrary(1) = "" Then '根据不同的组合返回不同的ZPL指令流

71. Return m_ing(TempArrary(0).Length).Replace("@", RePlaceString)

72. ElseIf TempArrary(3) = "@" AndAlso TempArrary(0) <> "" AndAlso TempArrary(1) <> "" Then '如果有使用@变量，则用数据库中的数据替换并赋给FontConvertBmp的TEXT属性

73. = RePlaceString

74. ElseIf TempArrary(2) <> "" AndAlso TempArrary(1) <> "" Then

75. = Trim(TempArrary(2).Substring(3, TempArrary(2).Length - 6))

76. ElseIf TempArrary(0) = "" AndAlso TempArrary(1) = "" AndAlso TempArrary(2) = "" AndAlso TempArrary(3) = "" Then

77. Return m_IntputString

78. ElseIf TempArrary(2) <> "" AndAlso TempArrary(1) = "" Then

79. Return m_IntputString

80. End If

81.

82. If TempArrary(1) <> Then '拆分“^WINFONT”函数，并将其值赋给相应的汉字转换类的属性

83.

84. DesString = TempArrary(1).Substring(9, TempArrary(1).Length - 10).Split(",")

85. With ZPL

86. .FontName = DesString(0)

87. .FontSize = DesString(1)

88. se(DesString(2), .X)

89. se(DesString(3), .Y)

90. If DesString(4) = "Y" Then

91. .FontBold = True

92. ElseIf DesString(4) = "N" Then

93. .FontBold = False

94. End If

95. se(DesString(5), .XZoom)

96. se(DesString(6), .YZoom)

97. End With

98. End If

99. Return t

100. End Function

101.

102. Public Sub OutPut() '转换指令流并发送给打印机

103.

104. Dim Count As Integer = m_

105.

106. Dim SR As Reader, Str As String '读取价签配置文件

107.

108. Dim Stream As FileStream, EnCoding As New ncoding

109.

110. Dim Hdc As SafeHandle = Nothing

111.

112.

113. Hdc = CreateFile(m_Device, GENERIC_WRITE, FILE_SHARE_WRITE, , OPEN_EXISTING, 0, 0) '操作打印机端口

114.

115. If Not lid Then

116. Stream = New FileStream(Hdc, )

117.

118. If Not (m_FileName) Then

119. (m_FileName & "文件不存在", "错误", , )

120. Exit Sub

121. End If

122. Dim i As Integer

123.

124. While i < Count '遍历需要打印的数据表中的数据

125. SR = New Reader(m_FileName, t) '打开价签配置文件

126. Try

127. While Not tream '按照行读取数据

128. m_IntputString = ne '对数据进行分析

129. InitList()

130. If m_ColnameString <> "" Then '开始转换

131. Str = RePlace((i)(m_ColnameString)) '

132. Else

133. Str = RePlace()

134. End If

135.

136. (es(Str), 0, es(Str).Length) '将转换好的ZPL指令流到打印机

137. End While

138. Catch ex As Exception

139. (e, "错误", , )

140. ()

141. Exit Sub

142. Finally

143. ()

144. End Try

145. RaiseEvent ValueChaged(CInt((i + 1) / (Count) * 100)) '触发进度事件

146. i += 1

147. End While

148. ()

149. Else

150. ("设备不存在或该设备没有打开", "错误", , )

151. End If

152.

153. () '关闭设备

154. e() '释放资源

155. End Sub

156.

157. End Class

158.

159.

至此，程序设计和分析就介绍完了,以上的代码均在VB6或VS2005中进行过测试。

2023年12月21日发(作者：蒙俨雅)

Zebra条码打印机汉字价签打印完全解决方案

本人所在的单位是一家零售公司，因此对于条码的印制是经常遇上的。公司一共有4家店，每家店使用的条码打印机均为Zebra S4M。使用的条码打印程序是用VF6编写的，而大家对VF6不熟悉因此给后续的客制化开发带来很大的困难，因此本人想用自己比较熟悉的编程语言进行改写(后面的测试代码均使用VB6或2005语言)。

首先对用VF6编写的打印程序进行了简单的分析，其实现原理大致如下。每个价签格式均使用ZPL语言编写好，然后再根据打印价签格式的不同调用不同的配置文件。配置文件内容如下：

^XA

^LH2

%BARCODE ^FO28,8^BEN,65,Y,N^FD@^FS

%BARCODE ^FO304,8^BEN,65,Y,N^FD@^FS

%ITEMDESP ^FO10,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMDESP ^FO280,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMNO ^FO35,133^ADN,28,14^FD @^FS

%ITEMNO ^FO320,133^ADN,28,14^FD @^FS

%QUANTITY ^PQ@^FS

^XZ

如果你接触过ZPL语言的话，对上面的代码你会比较熟悉，但是对于其中%BARCODE，^WINFONT(宋体,16,0,0,Y,N,Y)，@的代码你可能觉得比较难理解，不要紧我会分析给大家看的。

^XA 发送给打印机的开始信号

^LH2,1 定义价签的原点位置

%BARCODE ^FO28,8^BEN,65,Y,N^FD@^FS %BARCODE这个是代表VF6数据库中的一张数据表中有叫BARCODE 的列，^FO28,8^BEN,65,Y,N代表的是，在价签的28，8的坐标位置打印EAN条码，条码高度为65个点。这里的@代表配置文件中的变量，它被数据库中BARCODE字段的数据替换。

%BARCODE ^FO304,8^BEN,65,Y,N^FD@^FS

%ITEMDESP ^FO10,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS ^WINTFONT是自己创造的一个函数，说白了这个函数就是为了解决不能打印汉字而设置的，如果你直接发送这个函数给打印机，打印机是不能够识别的，对于这个函数的转换，其实就是本篇文章的重点，会在后面做详细说明。

%ITEMDESP ^FO280,99^WINFONT(宋体,16,0,0,Y,N,Y),1,2^FD @^FS

%ITEMNO ^FO35,133^ADN,28,14^FD @^FS

%ITEMNO ^FO320,133^ADN,28,14^FD @^FS

%QUANTITY ^PQ@^FS

^XZ 发送结束信号

通过以上的分析你可能明白了配置文件的内容。

下面再说下打印原理，如果你使用WINDOWS的SPOOLER打印服务那么你是很难进行打印控制的。斑马打印机将打印指令集成在打印芯片中，你发送打印指令给打印机，打印机接受指令后才进行打印操作，而发送的打印指令就是ZPL打印语言，也就是上面价签配置文件的内容。通过上面的分析你可能明白了整个程序的机制。就是，程序读取价签配置数据，然后将数据库中的内容替换价签配置文件中需要替换的数据，最后形成一个ZPL指令流，最后发送给打印机，打印机在接受这些指令流后进行打印。

接下来我们说下汉字打印。Zebra S4M打印机是不能识别汉字的，那么怎么解决这个问题呢，我在网上搜索了下，大致有两种解决方案：

（一）使用一个名字叫的连接库文件。这个文件有一个名为GETFONTHEX的导出函数，使用方式如下（VB6）

Declare Function GETFONTHEX Lib "." (ByVal chnstr As String, ByVal

fontname As String, ByVal orient As Integer, ByVal height As Integer, ByVal width As Integer, ByVal bold As Integer, ByVal italic As Integer, ByVal hexbuf As String) As Integer

通过以下的测试

Private Sub Form_Click()

Dim cBuf As String * 1024

nCount = GETFONTHEX("一", "宋体", 0, 200, 200, 1, 0, cBuf)

cBuf

' = cBuf

End Sub

会得到这样的结果

~DGOUTSTR01,10192,052,z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0jT07FkG01HFCk07IFjY01JFCjX07KFjW01LF8jV0MFEjU03NF8jT0OFEiN0gK03PF8jR0QFCV07jMFV07jMFCU07jNFU07jNFCT01jNFCU07jMFCU01jMFCV07KF8jW01HFCK0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0z0z0p0yJ0

这样的结果是不是有点眼熟啊，其实他就是将“一”字转换成图象再转换成十六进制编码最后进行ZPL的压缩，利用“~DG”命令将编码发送给打印机最后利用“^XG”命令进行图象打印。整个结果中~DGOUTSTR01这个命令是将图象编码发送给打印机并存贮在打印机存储卡上同时编码文件被命名为OUTSTR01。10192,052是指打印图像的总字节和每行的字节数，最后的东西就是图象编码。

（二）根据一的思路自己进行开发转换库，这种方式最灵活但难度比较大。下面我会重点对自己开发转换库进行讲解，后面的代码全部采用2005开发。

对于自己开发首先你要解决下面几个问题。

（1）如何编码

一般来说我们的打印机都是进行点阵打印，那么对于一个点来说如果打印的话则编码为“1”否则为“0”,那么一个十六进制的数来说它可以对应4个点，比如我们对“....”可以编码成“1111”转换成十六进制数来说就是F，同理对“. ..”来说十六进制数就是B了。

（2）字节数的计算

总字节数=行宽*列高/8

每行字节数=行宽/8

（3）ZPL压缩代码

什么是ZPL压缩代码呢，比如我们有这么一个图形“„„„„”一共12个点，进行编码后会是“FFF”根据ZPL压缩定义的话，我们可以写成“IF”，你看是不是比原来的“FFF”少了一个数据啊，这样的话是有利于减少数据量，提高与打印机的通信速度。那么ZPL压缩是怎么定义的呢。

G H I J K L M N O P Q R S T U V W X Y 对应1,2,3,4„„18,19。

g h i j k l m n o p q r s t u v w x y z 对应20,40,60,80„„340,360,380,400。

由于十六进制数占用了A,B,C,D,E,F所以要从G或g开始。还有就是压缩代码不分先后顺序的，比如Hi8和iH8实质是一样的。

解决了上述问题后就看下原代码吧。

1. Imports

2.

3. Imports g

4.

5. Imports g

6.

7. Public Class FontConvertBmp

8.

9. Private m_FontName As String '字体名字

10.

11. Private m_FontSize As Integer '字体大小

12.

13. Private m_String As String '需要打印的文本

14.

15. Private m_FontBold As Boolean '字体样式

16.

17. Private m_X As Integer, m_Y As Integer '打印时候的X,Y坐标

18.

19. Private m_XZoom As Integer, m_YZoom As Integer '打印时候的X,Y方向的放大倍数最大只能为10倍

20.

21. Private List1 As List(Of Char), List2 As List(Of Integer) '压缩代码集合

22.

23. Private S As String

24.

25. Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As IntPtr) As Integer

26.

27. Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As IntPtr) As IntPtr

28.

29. Public Property XZoom() As Integer

30.

31. Get

32.

33. Return m_XZoom

34.

35. End Get

36.

37. Set(ByVal value As Integer)

38.

39. If value > 0 AndAlso value <= 10 Then

40.

41. m_XZoom = value

42.

43. End If

44.

45. End Set

46.

47. End Property

48.

49. Public Property YZoom() As Integer

50.

51. Get

52.

53. Return m_YZoom

54.

55. End Get

56.

57. Set(ByVal value As Integer)

58.

59. If value > 0 AndAlso value <= 10 Then

60.

61. m_YZoom = value

62.

63. End If

64.

65. End Set

66.

67. End Property

68.

69. Public Property X() As Integer

70.

71. Get

72.

73. Return m_X

74.

75. End Get

76.

77. Set(ByVal value As Integer)

78.

79. If value >= 0 Then

80.

81. m_X = value

82.

83. End If

84.

85. End Set

86.

87. End Property

88.

89. Public Property Y() As Integer

90.

91. Get

92.

93. Return m_Y

94.

95. End Get

96.

97. Set(ByVal value As Integer)

98.

99. If value >= 0 Then

100.

101. m_Y = value

102.

103. End If

104.

105. End Set

106.

107. End Property

108.

109. Public Property FontName() As String

110.

111. Get

112.

113. Return m_FontName

114.

115. End Get

116.

117. Set(ByVal value As String)

118.

119. m_FontName = value

120.

121. End Set

122.

123. End Property

124.

125.

126.

127. Public Property FontSize() As Integer

128.

129. Get

130.

131. Return m_FontSize

132.

133. End Get

134.

135. Set(ByVal value As Integer)

136.

137. If value > 7 AndAlso value <= 500 Then

138.

139. m_FontSize = value

140.

141. End If

142.

143. End Set

144.

145. End Property

146.

147.

148.

149. Public Property Text() As String

150.

151. Get

152.

153. Return m_String

154.

155. End Get

156.

157. Set(ByVal value As String)

158.

159. m_String = value

160.

161. End Set

162.

163. End Property

164.

165. Public Property FontBold() As Boolean

166.

167. Get

168.

169. Return m_FontBold

170.

171. End Get

172.

173. Set(ByVal value As Boolean)

174.

175. m_FontBold = value

176.

177. End Set

178.

179. End Property

180.

181. Public Sub New()

182.

183. m_FontName = "宋体"

184.

185. m_FontSize = 12

186.

187. m_FontBold = False

188.

189. m_X = 1

190.

191. m_Y = 1

192.

193. m_XZoom = 1

194.

195. m_YZoom = 1

196.

197. InitDictionary()

198.

199. End Sub

200.

201. Public Function Convert() As String

202.

203. Dim Hdc As IntPtr

204.

205.

206.

207. Hdc = CreateCompatibleDC()

208.

209.

210.

211. Dim Graphic As Graphics = c(Hdc)

212.

213.

214.

215. Dim Width As Integer, Height As Integer

216.

217. Dim G As Graphics, Image As Bitmap

218.

219. Dim Font As Font

220.

221.

222.

223. If m_FontBold = True Then

224.

225. Font = New Font(m_FontName, m_FontSize, , )

226.

227. Else

228.

229. Font = New Font(m_FontName, m_FontSize, r, )

230.

231. End If

232.

233.

234.

235. Width = (CInt(eString(m_String, Font).Width) 8 + 1) * 8 '将行规格话便于计算字节

236.

237. Height = '列高

238.

239. Image = New Bitmap(Width, Height, 32bppArgb)

240.

241. G = age(Image)

242.

243. ()

244.

245. ring(m_String, Font, , 0, 2) '将文本写入图片

246.

247. Dim Value As Integer = Width * Height

248.

249. Dim TempString As New StringBuilder(Value)

250.

251. Dim DesString As New StringBuilder(Value)

252.

253. ("~DGOUTSTR01," & Width * Height 8 & "," & Width 8 & ",")

254.

255. Dim i As Integer, j As Integer

256.

257. Dim Sum As Integer

258.

259. For j = 0 To Height - 1 '由于内存中的图片是倒置，所以要反取数据

260.

261. For i = 0 To Width 4 - 1

262.

263. Sum = 0

264.

265. For m As Integer = 0 To 3 '由于4个点可用1个十六进制数表示因此一次取4个点进行转换

266.

267. If el(i * 4 + m, j).B = 0 Then '由于只打印黑白点所以根据RGB分量判断是否需要打印该点

268.

269. Sum += 1 << (3 - m) '通过移位操作将该点的信息与一个BIT相对应

270.

271. End If

272.

273. Next

274.

275. (Hex(Sum)) '将取出的点转换成16进制数

276.

277. Next

278.

279. Next

280.

281. Dim Count As Integer = 1 '将转成16进制的文本进行压缩

282.

283. For i = 1 To - 1

284.

285. If (i - 1) = (i) Then

286.

287. Count += 1

288.

289. If i = - 1 Then

290.

291. (CompressCode(Count) & (i))

292.

293. End If

294.

295. Else

296.

297. (CompressCode(Count) & (i - 1))

298.

299. S =

300.

301. Count = 1

302.

303. End If

304.

305. Next

306.

307. (vbCrLf & "^FO" & m_ng & "," & m_ng & "^XGOUTSTR01," & m_XZoom & "," & m_YZoom & ",^FS")

308.

309. DeleteDC(Hdc)

310.

311. e()

312.

313. e()

314.

315. e()

316.

317. Return ng

318.

319. End Function

320.

321. Private Function CompressCode(ByRef Input As Integer) As String

322.

323. If Input > 1 Then

324.

325. For i As Integer = - 1 To 0 Step -1 '使用递归和贪婪算法将连续的数字转换成ZPL压缩代码，如000可用I0表示

326.

327. If Input >= (i) Then

328.

329. S &= (i)

330.

331. Input -= (i)

332.

333. CompressCode(Input)

334.

335. End If

336.

337. Next

338.

339. End If

340.

341. Return S

342.

343. End Function

344.

345. Private Sub InitDictionary()

346.

347. '将ZPL定义的压缩代码写入集合

348.

349. List1 = New List(Of Char)

350.

351. List2 = New List(Of Integer)

352.

353. For i As Integer = 0 To 18

354.

355. (ChrW(71 + i))

356.

357. (i + 1)

358.

359. Next

360.

361. For i As Integer = 0 To 19

362.

363. (ChrW(103 + i))

364.

365. (20 * (i + 1))

366.

367. Next

368.

369. End Sub

370.

371. End Class

372.

接下来我们开始分析价签配置文件了，对于%开头的词我们仍然认定为数据库中列，@定义为变量，定义^WINFONT(变量1,变量2,变量3,变量4,变量5,变量6)函数，其中变量分别对应 字体名，字号，X坐标，Y坐标，是否为粗体，X方向放大倍数，Y方向放大倍数。程序的实现原理就是将“%”，“^WINFONT”，“@”通过正则表达式将其从文件中提取出来来，然后根据各自的功能进行相应的拆分，替换转换成ZPL指令流，最后再将其发送到打印机。

在写分析价签配置文件分析库和打印接口的时候应该有哪些重要地方呢

（一）

正则表达式

有四个表达式分别为"^%w*", "^WINFONTS*)", "^FD.*FS$", "@"，通过对价签配置文件每行的分析来获取相应的数据比如有这么一行数据

%产地 ^WINFONT(黑体,40,100,200,Y,1,2)^FD@^FS

通过正则分析后会得到如下数据“%产地”，“^WINFONT(黑体,40,100,200,Y,1,2)”，“^FD@^FS”，“@”，对“%产地”的值去调“%”后就是数据表中名为“产地”的列。

将“^WINFONT(黑体,40,100,200,Y,1,2)”拆份后会得到“黑体”，“40”，“100”，“200”，“Y”，“1”，“2”。将这些变量赋给上面的汉字转换类中的属性“FontName”，“FontSize”，“X”，“Y”，“FontBold”，“Xzoom”，“Yzoom”。

将“@”替换成“产地”中的数据然后赋给上面的汉字转换类中的属性“Text”

通过上面的操作后就将这些数据转换成ZPL指令流了，比如我们的数据库中有个字段为“产地”，有一数据值为“四川1”，价签配置文件内容为“^XA %产地^WINFONT(黑体,40,100,200,Y,1,2)^FD@^FS ^XZ ”那么通过分析转换后就会得到这样的结果^XA~DGOUTSTR01,690,15,nJ07CI01EgI078I01ER0MFEI0781F01ER0MFEI0781F01EI0FCM0MFEI0781F01EH03HFM0F03C781EI0780F01EH07HF8L0F03C781EI0780F01EH0F87CL0F03C781EI0780F01EH0F03CL0F03C781EI0780F01E01F01EL0F038781EI0780F01E01E01EL0F038781EI0780F01E01E01EL0F038781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0780F01E03CH0FL0F078781EI0F80F01E03CH0FL0F0F8781EI0F80F01E03CH0FL0F0F0781EI0FH0F01E03CH0FL0F1F0781EI0FH0F01E03CH0FL0F1E07HDEI0FH0F01E03CH0FL0F3E07FDEI0FH0F01E03CH0FL0F7C07FDEI0FH0F01E03CH0FL0HF8H07DEH01FH0F01E01E01EL0F38I01EH01EH0F01E01E01EL0FK01EH01EH0F01E01F01EL0FK01EH01EH0

F01EH0F03CL0FK01EH03CH0F01EH0F87CL0MFEH03CH0F01EH07HF8L0MFEH07C01F01EH03HFM0MFEH07801F01EI0FCM0FK01EH0F801F01ER0FK01E01FK01ER0FK01EH0FK01EgN01EpY0

^FO100,200^XGOUTSTR01,1,2,^FS^XZ

（二）

如何打印

指令流生成了如何发送呢，我采取的方式是通过CreateFile这个API函数直接发送数据到打印端口。注意为了提高效率，我们会采用边生成指令流边打印的方式操作，这样会提高使用效率。对于打印连续打印价签会节约不少的时间。

原代码如下：

1. Imports rExpressions

2. Imports

3. Imports

4. Imports pServices

5. Imports

6. Imports ndles

7. Public Class FormatText

8. Private List As String() = New String(3) {"^%w*", "^WINFONTS*)", "^FD.*FS$", "@"} '正则表达式

9. Private m_ColnameString As String '数据库字段名

10. Private m_IntputString As String '需要分析的价签配置文件数据

11. Private m_FileName As String '价签配置文件名

12. Private m_Device As String '打印机端口名比如 COM1 LPT1等

13. Private TempArrary(3) As String

14. Private m_Table As DataTable '数据表接口

15. Public Event ValueChaged(ByVal Precent As Integer) '提供一个事件，将转换速度传出可以是用户看到数据的转换进度

16. _

17. Private Shared Function CreateFile(ByVal lpFileName As String, ByVal dwDesiredAccess As 32, ByVal dwShareMode As 32, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As 32, ByVal dwFlagsAndAttributes As 32, ByVal hTemplateFile As IntPtr) As SafeFileHandle

18. End Function '通过该函数象打印机发送指令流

19.

20. Private Const GENERIC_WRITE =

21. Private Const CREATE_ALWAYS = 2

22. Private Const FILE_SHARE_WRITE =

23. Private Const OPEN_EXISTING = 3

24.

25.

26. Public Property Device() As String

27. Get

28. Return m_Device

29. End Get

30. Set(ByVal value As String)

31. m_Device = value

32. End Set

33. End Property

34. Public Sub New()

35. ()

36. End Sub

37. Public Sub New(ByVal FileNameValue As String)

38. m_FileName = FileNameValue

39. End Sub

40. Public Property Table() As DataTable

41. Get

42. Return m_Table

43. End Get

44. Set(ByVal value As DataTable)

45. m_Table = value

46. End Set

47. End Property

48. Public Property FileName() As String

49. Get

50. Return m_FileName

51. End Get

52. Set(ByVal value As String)

53. m_FileName = value

54. End Set

55. End Property

56. Private Sub InitList() '初始化正则表达式集合

57. For i As Integer = 0 To - 1

58. TempArrary(i) = (m_IntputString, List(i)).Value

59.

60. Next

61. If TempArrary(0) <> Then '如果有需要使用数据库的数据则返回数据库列名

62. m_ColnameString = Trim(TempArrary(0).Substring(1))

63. End If

64.

65. End Sub

66. Private Function RePlace(ByVal RePlaceString As String) As String

67.

68. Dim ZPL As New nvertBmp, DesString() As String '引用汉字转换类

69.

70. If TempArrary(3) = "@" AndAlso TempArrary(0) <> "" AndAlso TempArrary(1) = "" Then '根据不同的组合返回不同的ZPL指令流

71. Return m_ing(TempArrary(0).Length).Replace("@", RePlaceString)

72. ElseIf TempArrary(3) = "@" AndAlso TempArrary(0) <> "" AndAlso TempArrary(1) <> "" Then '如果有使用@变量，则用数据库中的数据替换并赋给FontConvertBmp的TEXT属性

73. = RePlaceString

74. ElseIf TempArrary(2) <> "" AndAlso TempArrary(1) <> "" Then

75. = Trim(TempArrary(2).Substring(3, TempArrary(2).Length - 6))

76. ElseIf TempArrary(0) = "" AndAlso TempArrary(1) = "" AndAlso TempArrary(2) = "" AndAlso TempArrary(3) = "" Then

77. Return m_IntputString

78. ElseIf TempArrary(2) <> "" AndAlso TempArrary(1) = "" Then

79. Return m_IntputString

80. End If

81.

82. If TempArrary(1) <> Then '拆分“^WINFONT”函数，并将其值赋给相应的汉字转换类的属性

83.

84. DesString = TempArrary(1).Substring(9, TempArrary(1).Length - 10).Split(",")

85. With ZPL

86. .FontName = DesString(0)

87. .FontSize = DesString(1)

88. se(DesString(2), .X)

89. se(DesString(3), .Y)

90. If DesString(4) = "Y" Then

91. .FontBold = True

92. ElseIf DesString(4) = "N" Then

93. .FontBold = False

94. End If

95. se(DesString(5), .XZoom)

96. se(DesString(6), .YZoom)

97. End With

98. End If

99. Return t

100. End Function

101.

102. Public Sub OutPut() '转换指令流并发送给打印机

103.

104. Dim Count As Integer = m_

105.

106. Dim SR As Reader, Str As String '读取价签配置文件

107.

108. Dim Stream As FileStream, EnCoding As New ncoding

109.

110. Dim Hdc As SafeHandle = Nothing

111.

112.

113. Hdc = CreateFile(m_Device, GENERIC_WRITE, FILE_SHARE_WRITE, , OPEN_EXISTING, 0, 0) '操作打印机端口

114.

115. If Not lid Then

116. Stream = New FileStream(Hdc, )

117.

118. If Not (m_FileName) Then

119. (m_FileName & "文件不存在", "错误", , )

120. Exit Sub

121. End If

122. Dim i As Integer

123.

124. While i < Count '遍历需要打印的数据表中的数据

125. SR = New Reader(m_FileName, t) '打开价签配置文件

126. Try

127. While Not tream '按照行读取数据

128. m_IntputString = ne '对数据进行分析

129. InitList()

130. If m_ColnameString <> "" Then '开始转换

131. Str = RePlace((i)(m_ColnameString)) '

132. Else

133. Str = RePlace()

134. End If

135.

136. (es(Str), 0, es(Str).Length) '将转换好的ZPL指令流到打印机

137. End While

138. Catch ex As Exception

139. (e, "错误", , )

140. ()

141. Exit Sub

142. Finally

143. ()

144. End Try

145. RaiseEvent ValueChaged(CInt((i + 1) / (Count) * 100)) '触发进度事件

146. i += 1

147. End While

148. ()

149. Else

150. ("设备不存在或该设备没有打开", "错误", , )

151. End If

152.

153. () '关闭设备

154. e() '释放资源

155. End Sub

156.

157. End Class

158.

159.

至此，程序设计和分析就介绍完了,以上的代码均在VB6或VS2005中进行过测试。