procedure TForm1.Button1Click(Sender: TObject);
var
F : Textfile;
s1 : string;
begin
AssignFile(F,'LPT1'); //访问LPT1端口~~~~
Rewrite(F);
s1:=#71+#83+#86;//EpSon TM88热敏打印机 切纸指令~~~~
write(F,s1);
CloseFile(F);
end;
var
F : Textfile;
s1 : string;
begin
AssignFile(F,'LPT1'); //访问LPT1端口~~~~
Rewrite(F);
s1:=#71+#83+#86;//EpSon TM88热敏打印机 切纸指令~~~~
write(F,s1);
CloseFile(F);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货