我的纸可能有好几米长我用以下的代码
var
  lpt :TextFile;
  i: integer;
begin
  AssignFile( lpt, 'LPT1');
  Rewrite(lpt);
  for i := 0 to 1000 do
    Write( lpt, '打印测试' );  CloseFile( lpt );
end;打印到一定的长度时,打印机会自己换页,怎么让它不自动换页呢,
谢谢!