请教一个关于用VB做标签打印机的问题谢谢

Question

一般打印机打印就是定义好打印的尺寸,打印:object.print或object.printform
哪如果是换成标签打印机打印该如何实现呢.有谁做个,请教教我.谢谢.听说要用ZPL语言指令转换,谁知道?最好举个例子.非常感谢

Answer 1

Private Sub Command1_Click()
Open "LPT1" For Output As #1
For I = 1 To 5
    Print #1, Chr(10) '控制换行，同Chr(13)
Next
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    Print #1, Chr(14); "ABCDEFGHIJKL" '宽体每行40字符
    Print #1, Chr(27); "IA" '恢复正常字体
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    Print #1, Chr(27); "IB"; "ABCDEFGHIJKL" '横向扩展每行40字符
    Print #1, Chr(27); "IC"; "ABCDEFGHIJKL" '纵向扩展每行80字符
    Print #1, Chr(27); "E"; "ABCDEFGHIJKL" '加重黑体
    Print #1, Chr(27); "F" '取消加重黑体
    Print #1, Chr(27); "IA" '恢复正常字体
    Print #1, Chr(27); "4"; "ABCDEFGHIJKL" '斜体
    Print #1, Chr(27); "5" '取消斜体
    Print #1, Chr(27); "0"; "ABCDEFGHIJKL" '打印每吋6行改8行
    Print #1, Chr(27); "1"; "ABCDEFGHIJKL" '重置行间隔为7/72
    Print #1, Chr(27); "2"; "ABCDEFGHIJKL" '重置行间隔为1/6
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    'Print #1, Chr(12) '控制换页
Close #1
End Sub
参考上述代码,
使用 Open "LPT1" For Output As #1 语句打开打印机
使用 Print #1, "ABCDEFGHIJKL" 语句打印"ABCDEFGHIJKL"
WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打
代码中CHR()表示打印控制符(各打印机有不同),CHR()后的"  "内属控制打印效果.
打印到那,纸张停走,不象用PRINTER对象即使打印一行,一张纸照样走完.

Answer 2

如果我要向斑马标签打印机上打印图形,用ZPL命令该怎么做呢.谢谢

Answer 3

哥们 好哈看看Zabra的编程手册吧呵呵