关于即打即停的疑问？

Question

现在在给客户做的软件中要在做到即打即停，我是通过向lpt1端口写textfile实现的，但是我的打印机在打印完后总会在走会纸，也就是说能够停止，但是不正常，这样在下一个单据中间留下很宽的空白，谁有这方面的经验，请告诉我，或者别的方法也行？

Answer 1

var
F:TEXTFILE;
BEGIN
 ASSIGNFILE(F,'LPT1');
 REWRITE(F);
 WRITELN(F,chr(27) '@'); //initial the printer
 WRITELN(F,'TEST1 FIRST LINE');你的内容
 WRITELN(F,chr(12)); // move the paper to a new page
 CLOSEFILE(F);
end;