如何调用打印机的控制码(100分)

张

张力

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-20

• #1

在工作中打印需要用到打印机的退纸功能,此外还有一些其他的地方
需要用到打印机的控制码，不知道在程序中该如何调哟？

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-20

• #2

首先你必须确定你的打印机使用的是什么控制码集, 比如: Epson的ESC P/K2,
或者HP的PCL

其次, 针对你的打印机控制码集, 找到你想要的功能码序列(一般来说是可显示字符)

然后, 将lpt1:设备作为文本文件方式打开,可以用assignprn(f)函数
或assignfile(f, 'lpt1:'), 然后rewrite(f);
再直接用:
write, writeln函数将控制码写到f就可以了
最后flush(f);close(f);

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-29

• #3

》》可以用assignprn(f)函数
》》或assignfile(f, 'lpt1:'), 然后rewrite(f);
再直接用:
这个方法据说无法判断发送执行成功与否。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-30

• #4

打印中，用Escape函数加PASSTHROUGH代码，
可以直接发命令到打印机

 

张

张力

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-14

• #5

多人接受答案了。

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-14

• #6

吴: 可以的, 用:

assignprn(f);
{$I-}
rewrite(f);
{$I+}
if ioresult=0 then

begin

{打开成功}
{$I-}
writeln(f, 'test');
writeln(f, #12);
{$I+}
if ioresult=0 then

begin

{打印成功}
ShowMessage('打印完成');
end;

end;

{$I-}
closefile(f);
{$I+}