我用的上热敏的STAR:
var
f : textfile;
begin
assignfile(f,'lpt1:');
try
rewrite(f);
writeln(f,chr(27)+chr(112)+chr(0)+chr(50)+chr(200));
rewrite(f);
writeln(f,#27#64+'停车收费单');
writeln(f,#10'卡号:'+LabCardNo.caption);
writeln(f,'进入日期:'+LabInDate.caption);
writeln(f,'进入时间:'+LabInTime.caption);
writeln(f,'离开日期:'+LabOutDate.caption);
writeln(f,'离开时间:'+LabOutTime.caption);
writeln(f,'共停车:'+LabHour.caption+' '+LabMin.Caption);
writeln(f,'停车费:'+labfee.caption+#10#10#10#10#10#10);
finally
closefile(f);
end;
end;
