控制并口逐行打印的问题

[RJU]

请看一下简单的并口打印程序
var
MyFile: TextFile;
启动时
AssignPrn(MyFile);
Rewrite(MyFile);

以后每接收到一个字符串就
Writeln(MyFile, str);

程序退出时
CloseFile(MyFile);

现在执行Writeln(MyFile, str)时不是马上打印，而是要执行CloseFile(MyFile)
后才开始打印，并且大完后自动翻页
请问如何实现执行Writeln(MyFile, str)后马上打印出来并且不自动翻页？
谢谢各位

[RJU]

没有人帮帮我吗？

[dy2712]

要不你先收，收完了再打印