PRINTER即打即停

Question

利用PRINTER对象,如何让针式打印机即打即停?而不是打完后退出一张a4纸大小的位置。

Answer 1

网上搜索一下printer在w2k下的自定义打印方法

Answer 2

改用OPEN语句来执行:
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 

Answer 3

参阅:http://topic.csdn.net/u/20100319/23/b4a2ff24-db0f-479d-8423-ef99bcc5b70f.html21楼22楼回复.

Answer 4

http://topic.csdn.net/u/20100319/23/b4a2ff24-db0f-479d-8423-ef99bcc5b70f.html中已经有很好的解决办法 去学一下