我的纸可能有好几米长我用以下的代码
var
lpt :TextFile;
i: integer;
begin
AssignFile( lpt, 'LPT1');
Rewrite(lpt);
for i := 0 to 1000 do
Write( lpt, '打印测试' ); CloseFile( lpt );
end;打印到一定的长度时,打印机会自己换页,怎么让它不自动换页呢,
谢谢!
var
lpt :TextFile;
i: integer;
begin
AssignFile( lpt, 'LPT1');
Rewrite(lpt);
for i := 0 to 1000 do
Write( lpt, '打印测试' ); CloseFile( lpt );
end;打印到一定的长度时,打印机会自己换页,怎么让它不自动换页呢,
谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货