不分页打印(50分)

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #1

现在我想实现：我发一串字符就马上打印那一串字符，不要分页，后续的打印都是紧跟其后，
不用控件，请问有例子吗？谢谢了

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

有没有人棒棒我？

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #3

var
MyFile: TextFile;
首先
AssignPrn(MyFile);
Rewrite(MyFile);
以后每接收到一个字符串就
Writeln(MyFile, str);
最后
System.CloseFile(MyFile);

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #4

pipi:System.CloseFile(MyFile)会有换页的命令，我想的是不换页

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #5

最后,就是程序结束的时候，你的意思是连程序结束都不换页？

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #6

System.CloseFile(MyFile)放在程序结束？
我试了一下，执行Writeln(MyFile, str)的时候不会马上打印，
必须是执行System.CloseFile(MyFile)后才打印，我希望是实现相当于执行每执行
一次Writeln(MyFile, str)都马上打印一行，但不换页，可以吗？

先谢谢PIPI了

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #7

var
F: TextFile;
程序开始：
AssignFile(F, 'prn');
Rewrite(F);
每次输出：
Writeln(F,字符串);
//不要自动回车，那么改成Write
程序结束：
CloseFile(F);

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #8

执行后出现错误提示：错误的文件名。

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #9

Pipi:AssignFile(F, 'prn')改为AssignFile(F, 'prn1');后不出错，
但是Writeln(F,字符串)或者Write(F,字符串);
后都会自动翻页。
请PIPI帮助，谢谢

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #10

prn是错误文件名？prn1反而可以？不懂。
不过我的win2000是用prn都可以的
Write(F,字符串);
出来的字符串正确吗？

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-06

• #11

正确，但是只要Write(F,字符串);
就翻页
我的是WIN ME
唉，头都大了，呵呵

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-06

• #12

是了，什么打印机，不会是激光打印机吧？

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-06

• #13

谢谢PIPI,看来和打印纸有关，如果不用穿孔纸它就会翻页，用穿孔纸就不会。
在次谢谢PIPI