您的位置：程序门 -> vb -> 基础类

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

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

发表于：2007-04-12 17:39:17 楼主

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

发表于：2007-04-12 21:38:011楼得分:0

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对象即使打印一行,一张纸照样走完.

发表于：2007-04-13 07:55:242楼得分:0

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

发表于：2007-04-13 08:08:463楼得分:0

顶，呵呵

发表于：2007-04-24 11:34:014楼得分:0

请问如何设置打印标签长度和宽度呢,谢谢

发表于：2007-04-25 09:51:575楼得分:0

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

发表于：2007-04-25 12:50:516楼得分:0

我也正在写标签打印机的程序。大家一起研究一下吧

下一篇：把一个txt里的数据读出来后,删除重复出现的数据`并放到combo里去~
上一篇：怎样将当前dbgrid中的数据进行存储

其他资讯