紧急求助：点阵打印机怎样回退 (100分)

Z

Z_JJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-15

• #1

因为star打印机没有切纸功能，在打连续发票纸时，要求一页打完后走到切纸处，然后再回退到原位，打印机手册提供的代码是basic的，在dos下用QBASIC能正常调用回退功能，回退代码好象是：lprint chr$(29);"j";chr$(255)，大概是这种格式，可在delphi无法实现。
我现在外地安装调试，上网不方便（县医院），今天是最后期限，软件做了近半年，其他功能都通过了，唯独打印切纸不方便，因为他们以前用的是foxPRO软件能很方便实现上述功能，这关不过医院方不验收，没办法好不容易找到了一个网吧，下午还要乘4点钟的车否则就赶不回去了，跑了好几趟都没办法解决费用着不住，请大家救救我！！！

 

N

nullx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #2

向打印口发送 chr$(29);"j";chr$(255)，也许可以。

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #3

Delphi控制打印机
var
F:TextFile;
begin
AssignFile(F,'LPT1');
Rewrite(F);
WriteLn(F,chr(27)+chr(106));
// WriteLn(F,chr(27)+chr(118));
System.CloseFile(F);
end;
//chr(27)是Esc键
//j键可能是chr(106)你用Ord查一下
//解决了别忘了给我发Email:yczjs@163.com
//以前我也搞得晕头转向过,呵呵

 

N

nullx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #4

实在不行，用basic便一个只有切纸功能的小程序，到了要切纸的时候调用。

 

Z

Z_JJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #5

非常感谢yczjs，帮了我的大忙，一直没来得及感谢

 

Z

Z_JJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #6

多人接受答案了。