打印出错(100分)

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #1

我用以下程序打印：
var myfile:textfile;
begin
assignprn(myfile);
rewrite(myfile);
writeln(myfile,'adsf');
system.closefile(myfile);
end;
结果出现了出错对话框，说文件名非法（invalid filename），并打印空白页。不知是
什么原因，希望谁能帮我一把

 

S

songmk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #2

with Printerdo
begin
begin
Doc;
.....
endDoc;
end;

 

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #3

可是我想知道WHY?

 

S

songmk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #4

问题解决了吗

 

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #5

用begin
doc是可以，但我希望用assignprn

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #6

这是Delphi中关于AssignPrn过程的一个例子，在我的机器上测试没有问题，
我估计你大概没有装打印驱动或者没有默认打印机吧。

 

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #7

我发现很奇怪，我在本机上别的程序里用这段代码没问题，是不是因为我这个程序的其他地方有问题？

 

S

sars1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #8

要引用printers单元，拭试下面的代码：
var lpt:TextFile;
begin
AssignFile(lpt, 'LPT1' );
ReWrite(lpt );
Writeln(lpt, '打印测试' );
write(lpt,#13#10);
//Write( lpt, #12 );
//打印机换页
CloseFile( lpt );

 

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #9

to sars1: 也不行，还是出错，project job.exe raised exception class EInOutError with message 'Invalid filename',process stopped.

 

雷

雷电

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #10

多人接受答案了。