vb 对 zebra 888-TT打印机编程

打印机:zebra 888-TT

控制语言: EPL2 (很多zebra用的ZPL2 )

vb源码:

Private Sub Command1_Click()
Dim id
id = Form1.Text1.Text
If (id <> "") Then
    strsql = "select * from stock where item='" & id & "'"
    open_db (strsql)
       
    If Not rs.EOF Then
   
        Dim p_name
        Dim stock
        Dim check_no
       
        p_name = rs.Fields.Item(1).Value
        stock = rs.Fields.Item(2).Value
        check_no = rs.Fields.Item(3).Value
       
               
        Open App.Path & "/print.ext" For Output As #1
        
         'ZPL 的命令*********************
        Print #1, " "
        Print #1, "N"
       
        Print #1, "A30,5,0,8,1,1,N," & Chr(34) & "图番号" & Chr(34)
        Print #1, Chr(13) + Chr(10)
        Print #1, "A130,5,0,2,1,1,N," & Chr(34) & id & Chr(34)
        Print #1, Chr(13) + Chr(10)
       
        Print #1, "A30,50,0,8,1,1,N," & Chr(34) & "品名" & Chr(34)
        Print #1, Chr(13) + Chr(10)
        Print #1, "A105,50,0,8,1,1,N," & Chr(34) & p_name & Chr(34)
        Print #1, Chr(13) + Chr(10)
       
        Print #1, "A30,95,0,8,1,1,N," & Chr(34) & "棚番号" & Chr(34)
        Print #1, Chr(13) + Chr(10)
        Print #1, "A130,95,0,2,1,1,N," & Chr(34) & stock & Chr(34)
        Print #1, Chr(13) + Chr(10)
       
        Print #1, "A250,95,0,8,1,1,N," & Chr(34) & "入检号" & Chr(34)
        Print #1, Chr(13) + Chr(10)
        Print #1, "A350,95,0,2,1,1,N," & Chr(34) & check_no & Chr(34)
        Print #1