并口或串口打印问题

Question

Private Sub Command1_Click()
     Open "LPT1:" For Binary Access Write As #1
        DoEvents
        Put #1, , "AAAAAAAAAAAA"
    Close #1
End Sub
一点击按钮，程序就死掉，怎么能解决

Answer 1

Open "\\.\LPT1:" For Binary  As #1

Answer 2

增加一段代码，把写入打印机的文本打印：
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

Answer 3

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

Answer 4

open "lpt1" for output as #1
print #1,"需要打印文本";或者直接加入打印机控制命令也可
close #1上述方我成功开发POS打印系统，无问题！

Answer 5

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