怎样知道打印完？运行后出现 'File access denied ' 字样错误，不知何故？怎样解决？(100分)

C

cunbh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #1

procedure EjectPage;
var
F:TextFile;
begin

AssignFile(F, 'LPT1');

Rewrite(F);

Writeln(F,chr(12);

CloseFile(F);
end;


procedure Txfz.Button1Click(Sender: TObject);
begin

QuickRpt1.Print;
EjectPaper ;
end;

运行后出现 'File access denied ' 字样错误，不知何故？怎样解决？

 

H

hwagin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #2

很想知道

 

A

Andyqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #3

我还没有实验过,但是我认为,通过向并行口写空字符的方式来换页,不是一个很好的方法,
为什么不直接用打印机控制码或者直接用Printer的换页方法来实现呢?
你的程序出现的问题,可能是你把"LTP"直接赋给文件变量了.

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #4

QuickRpt1.Print返回后，windows正在后台打印呢，这个时候程序是控制不了它
quickrep的AfterPreview事件 QuickRep.NewPage 试试

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #5

在QR.newpage中判断.