var F:TextFile;
begin
assignfile(f,'lpt1');
//*********************************************打印:
rewrite(f);
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,icnum+inttostr(id+1)+' '+ Trim(OilType)+ ' '+ floattostr(lit) +''+floattostr(money)+' '+' '+ datetimetostr(now) );
writeln(f,' ');
writeln(f,' ');
writeln(f,' '+datetimetostr(now));
writeln(f,' ');
writeln(f,' ');
closefile(f);
end;
要多走几行,可以在后面多加几行 writeln(f,'')的