如何控制平推式打印机换页?(100分)

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #1

一个打印卡片的程序,打印机为OKI5530,卡片横向打印,该怎样在打印完后卡片自动退出?程序如下:
begin

Printer.Orientation:=poLandscape;
SetPaperSize(750,474);//定义了卡片大小
Printer.begin
doc;

Textout(XPos,YPos,Str);
....
Printer.enddoc;

end
我在enddoc后加过Printer.NewPage,但系统提示打印机错误？

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #2

应在EndDoc前加NewPage。
with Printerdo

begin

begin
Doc;
for i := FromPage to ToPagedo

begin

...... // Something to handle printer
if i < ToPage then
NewPage;
end;

EndDoc;
end;

 

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #3

begin

try
Printer.Orientation:=poLandscape;
SetPaperSize(750,474);//定义了卡片大小
Printer.begin
Doc;
Textout(XPos,YPos,Str);
....
Printer.NewPage;
Printer.EndDoc;
end;

我是想让卡片从平推式打印机的前面塞入,然后打印完一张卡片后再从前面退出来就完了.(打印机上出纸方向已设置好),结果打印完后卡片从打印机后面出来,且系统提示要再塞入卡片,再请教各位?

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #4

如果只打一页不用NewPage。

 

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #5

若不用NewPage打印完后卡片不退出？

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #6

用NewPage则要纸，不用则不退出。
没招了，看来只能手动退出了。

 

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #7

再请教各位？

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #8

老兄：
从程序本身来看是没办法了。可以试试：
1. 您在用Word等软件打印时会出现什么情况呢？
2. 是否与该打印机本身的硬件设置有关？

 

J

jammi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #9

请教该如何用打印机控制码来实现？

 

E

EAST

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-19

• #10

试试它
var
F:TextFile;
begin

AssignFile(F, 'LPT1');

Rewrite(F);

......
Writeln(F,chr(12);

end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #11

多人接受答案了。