vb 对 zebra 888-TT打印机编程

最新推荐文章于 2020-12-30 10:40:01 发布

原创

最新推荐文章于 2020-12-30 10:40:01 发布 · 2.9k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #fonts #command #output #编程 #语言

该博客详细介绍了如何使用VB编程来控制Zebra 888-TT打印机，通过EPL2语言进行条码和文本的打印。内容包括VB源码示例，展示了如何设置打印机命令、打印位置、字体大小和条码类型等。同时，提供了EPL2命令的说明，解释了各个参数的含义，如旋转角度、字体选择和条码参数设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打印机: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, Chr(13) + Chr(10)


        Print #1, "B30,140,0,3,1,2,70,B," & Chr(34) & id & Chr(34)
        Print #1, Chr(13) + Chr(10)

        Print #1, "P1"

        Close #1
        FileCopy "print.ext", "lpt1"

'*******************************************************
    Else
        Dim response
        response = MsgBox(" 图番号不存在！", 0, "提示")
    End If
    Call close_db
    Form1.Text1.Text = ""
    Form1.Text1.SetFocus
Else
    Dim alert
    alert = MsgBox(" 请输入图番号！", 0, "提示")
End If
End Sub

EPL2命令说明

EPL2严格区分大小写

A

语法 Ap1,p2,p3,p4,p5,p6,p7,“DATA”
参数 p1=以象素点为单位的水平起始位置

p2=以象素点为单位的垂直起始位置

p3=旋转

            Value         Description
              0                No rotation
              1               90 degrees
              2               180 degrees
              3               270 degrees

              4               No rotation
              5               90 degrees
              6               180 degrees
              7               270 degrees

4-7是针对亚洲字体的设置

p4=字体选择

Value Description<