如何控制Writeln换行和走纸？

Question

var
PText:TextFile;
print_str:AnsiString ;打印用以下的语句：
Writeln(Ptext, print_str);
其中print_str内容长度是动态的，怎样实现每行打印18个字符长度，就自行换行？
还有打印完毕后，想让小票打印机走纸三行，我用了三个 Writeln(Ptext,'')，怎么不起作用呢？

Answer 1

其中print_str内容长度是动态的，怎样实现每行打印18个字符长度，就自行换行？
-----------------------------
自己对print_str分拆后按行输出
var
  index : integer;
begin
  index := 0;
  while index < length(print_str) do
  begin    
    Writeln(Ptext, copy(print_str, index, 18);
    index := index + 18;
  end; 
end;
还有打印完毕后，想让小票打印机走纸三行，我用了三个 Writeln(Ptext,'')，怎么不起作用呢？
-----------------------------
试试空格或不可见字符, 如
Writeln(Ptext,'  ')
ps, 上边的示例代码未经调试,只说明实现原理