您的位置：程序门 -> vb ->

epson lq300如何通过程序控制退纸？

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

epson lq300如何通过程序控制退纸？

发表于：2007-10-26 14:56:32 楼主

手头的项目中
printer打印发票（连续纸针打），每次打完一页撕纸后，需要手动按打印机上的退纸键才能进行下一此正常打印。
现在从epson lq 300k的操作手册上找到这么一行命令，可以控制自动退纸，我想在程序打印之前先调用退纸命令。这样就可以解决问题了。
问题转化为：
退纸命令是：esc em n （n="1","2","3","b","r","p")
那么我如何用vb代码来控制打印机呢？
我对vb代码不熟悉，请高手支招。

发表于：2007-10-26 15:32:161楼得分:0

你要的退纸命令，我这儿查不到，下面提供一段控制打印机的vb命令，提供参考。
private sub command4_click（)
dim i as integer
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

发表于：2007-10-26 15:47:052楼得分:0

epson lq 300k 连续走纸无需手动，第二份单据开始打印时，会自动退纸到合适位置啊
特地到对面公司去看了一下，他们正在用这个打印

发表于：2007-10-26 15:48:413楼得分:0

sorry 没看清，你是用printer对象打印

下一篇：commondialog 有pathchange事件吗？该如何调用？
上一篇：怎么屏蔽键盘上的 f8键

其他资讯