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

并口或串口打印问题

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

并口或串口打印问题[已结贴,结贴人:yn178]

发表于：2007-04-02 09:32:15 楼主

private sub command1_click（)
open "lpt1: " for binary access write as #1
doevents
put #1, , "aaaaaaaaaaaa "
close #1
end sub
一点击按钮，程序就死掉，怎么能解决

发表于：2007-04-02 09:49:051楼得分:0

打印机没开或者是干脆就没连接上

发表于：2007-04-02 10:27:122楼得分:0

open "\\.\lpt1: " for binary as #1

发表于：2007-04-02 10:38:133楼得分:0

mark!

发表于：2007-04-02 12:05:554楼得分:20

增加一段代码，把写入打印机的文本打印：
private sub command1_click（)
open "lpt1: " for binary access write as #1
doevents
put #1, , "aaaaaaaaaaaa引号里填写打印机脚本 "
close #1
open "lpt1 " for output as #1
print #1,
close #1
end sub

发表于：2007-04-02 12:19:335楼得分:0

你debug一下，看看是那句代码的问题就可以了
不过在我这里debug你的东西没有什么问题
那就可能是一楼的兄弟说的那个问题了
自己看一下打印机有没有连好什么的吧

发表于：2007-04-04 14:43:136楼得分:0

分散不出去了？？？

发表于：2007-04-04 15:39:087楼得分:0

没有设置默认打印机

发表于：2007-04-04 16:22:308楼得分:0

试过了，应该是打印机设置问题

发表于：2007-04-05 00:35:099楼得分:0

open "lpt1 " for output as #1
print #1, "需要打印文本 ";或者直接加入打印机控制命令也可
close #1

上述方我成功开发pos打印系统，无问题！

发表于：2007-04-05 08:48:1510楼得分:0

先看看打印机的状态

发表于：2007-04-09 10:25:1011楼得分:80

win98下能打印中文，winxp下能打印英文字符及数字，打印机为epson针打：
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

发表于：2007-04-09 16:03:4612楼得分:0

顶.

发表于：2007-04-10 09:18:1713楼得分:0

感谢大家的回复，因为我的这个程序是给客户用的，所以就不能忽略客户在操作电脑打印的时候忘记开打印机的情况。

下一篇：请推荐一本结合vb讲解wmi的优秀教材。谢谢！
上一篇：vb:如何从全局的角度捕捉每处可能发生的异常？

其他资讯