VB使用ZPL指令控制zebra打印机案例

1、VB使用ZPL指令控制zebra打印机案例Dim i As Integer, j As Integer, nCount As Integer, col_count As LongDim zpl_head(12) As String, zpl_foot As StringDim cell_width_ini As Integer, cell_height_ini(3) As IntegerDim tmp_MAC() As String, tmp_SN() As StringDim zpl_text_MAC() As String, zpl_text_SN() As StringDim zpl_b

2、arcode_MAC() As String, zpl_barcode_SN() As StringDim cbuf As String * 21000'*'设置打印开始信息'*    zpl_head(0) = "XA"                          &

3、#39;起始符    zpl_head(1) = "LH0,0"                       '参考点    zpl_head(2) = "FO540,60GB0,1850,7FS"      '竖

4、线    zpl_head(3) = "FO1025,60GB0,1850,7FS"     '竖线    zpl_head(4) = "FO10,242GB1100,0,7FS"      '横线    zpl_head(5) = "FO10,422GB1100,0,7FS"      &#

5、39;横线    zpl_head(6) = "FO10,602GB1100,0,7FS"      '横线    zpl_head(7) = "FO10,782GB1100,0,7FS"      '横线    zpl_head(8) = "FO10,962GB1100,0,7FS"    

6、  '横线    zpl_head(9) = "FO10,1152GB1100,0,7FS"     '横线    zpl_head(10) = "FO10,1332GB1100,0,7FS"    '横线    zpl_head(11) = "FO10,1512GB1100,0,7FS"    '横线&#

7、160;   zpl_head(12) = "FO10,1692GB1100,0,7FS"    '横线 '*'  计算列循环次数,各数组下标'*    col_count = (Grid1.Rows - 1) / 10 + CInt(CBool(Grid1.Rows - 1) Mod 10) * (-1)    ReDim tmp_MAC(Grid1.Rows - 1)    ReD

8、im tmp_SN(Grid1.Rows - 1)    ReDim zpl_text_MAC(Grid1.Rows - 1)    ReDim zpl_text_SN(Grid1.Rows - 1)    ReDim zpl_barcode_MAC(Grid1.Rows - 1)    ReDim zpl_barcode_SN(Grid1.Rows - 1)    '*'设置标签体'*   

9、 '单元初始X坐标    cell_width_ini = 97    For i = 1 To col_count        '单元初始Y坐标        cell_height_ini(0) = 88        cell_height_ini(1) = 116   &#

10、160;    cell_height_ini(2) = 147        cell_height_ini(3) = 180        For j = 1 To 10            '第一单元:MAC文字       

11、0;    nCount = GETFONTHEX("MAC:" & Grid1.TextMatrix(i - 1) * 10 + j, 0), "verdana", "MAC" & CStr(i - 1) * 10 + j), 0, 32, 16, 0, 0, cbuf)            tmp_MAC(i - 1) * 10 + j) = Mid(cbuf, 1, nCo

12、unt)            zpl_text_MAC(i - 1) * 10 + j) = "FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(0) & "XG" & "MAC" & CStr(i - 1) * 10 + j) & ",1,1FS" 

13、0;                  '第二单元:MAC条码            zpl_barcode_MAC(i - 1) * 10 + j) = "FO" & CStr(cell_width_ini) & "," & CStr(cell_heigh

14、t_ini(1) & "BCN,33,N,NFD" & Grid1.TextMatrix(i - 1) * 10 + j, 0) & "BY1.87,5.369FS"                        '第三单元:SN文字      &

15、#160;     nCount = GETFONTHEX("S/N:" & Grid1.TextMatrix(i - 1) * 10 + j, 1), "verdana", "SN" & CStr(i - 1) * 10 + j), 0, 32, 16, 0, 0, cbuf)            tmp_SN(i - 1) * 10 + j) = Mid(cbuf,

16、 1, nCount)            zpl_text_SN(i - 1) * 10 + j) = "FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(2) & "XG" & "SN" & CStr(i - 1) * 10 + j) & ",1,1FS" 

17、;                       '第四单元:SN条码            zpl_barcode_SN(i - 1) * 10 + j) = "FO" & CStr(cell_width_ini) & ",&

18、quot; & CStr(cell_height_ini(3) & "BCN,33,N,NFD" & Grid1.TextMatrix(i - 1) * 10 + j, 1) & "BY1.87,5.369FS"                        If (i - 1) * 10 + j = Gr

19、id1.Rows - 1 Then                Exit For            End If            cell_height_ini(0) = cell_height_ini(0) + 18

20、0            cell_height_ini(1) = cell_height_ini(1) + 180            cell_height_ini(2) = cell_height_ini(2) + 180            cell_height_ini(3) = cell_height_ini(3) + 180        Next j        cell_width_ini = cell_width_ini + 500    Next i'*'设置标签结束信息'*    zpl_foot = "XZ"