epson 打印机,LQ-300k+ ,有限ESC/PK 控制码,ASCII模式.IBM 2390 PLUS 仿真控制码,如何用这些控制码控制纸张连打的打印大小,走纸多少等.

Question

TO:wangwenyou(王文友) 我看过你的类似的回答,能不能提供多一点资料

Answer 1

那你能解释一下下边的语句吗?我看不懂,麻烦你了If Index = 1 Then
     Printer.Orientation = vbPRORPortrait    Open "LPT1:" For Output As #1
    Print #1, Chr$(27); "E"; Chr(&H1B); Chr(&H26); "l"; "1"; "O"
    Close #1
    PrinterSetting.PrintDirection = 纵向   Else
    Printer.Orientation = vbPRORLandscape
    Open "LPT1:" For Output As #1
    Print #1, Chr$(27); "E"; Chr(&H1B); Chr(&H26); "r"; "0"; "F"
    Close #1
    PrinterSetting.PrintDirection = 横向
   End If

Answer 2

Chr$(27); 是Esc
至于E，应该是控制指令（不知道我当时的想法了）
后面紧跟的，是参数，看你的PCL了至于前面使用Open打开，是把打印机当做一个文件来处理，把你的输出都重定向到LPT1上了－－当然，你得根据你的实际情况决定输出到哪个端口。总而言之，总的思想就是打开设备向设备发控制字符。

Answer 3

也有可能Chr$(27); "E"; Chr(&H1B); Chr(&H26);是声明控制指令的开始，你可以试试在它之后发你的控制码

Answer 4

我的帖子上已经写的很明白了，打印机使用的是ESC指令集，比如退纸是ESC "j" n
之类的，当然不同的打印机指令不同，请查看打印机的说明书。
在程序中应该这样写
OPEN "LPT1:" FOR OUTPUT AS #1
PRINT #1;CHR(27)+CHR(106)+CHR(50)
CLOSE #1
这里的PRINT #1;后面的就是控制语句，需要将控制符号通过CHR()函数转换才可以发送到打印机