Delphi编写的打印程序。
新机器主板上没有串口LPT1,需要加一个PCI卡转换为LPT1串口,但加卡转换后,无法正常打印。
提示:File not found请各位帮忙,谢谢。打印程序如下:
procedure TDataModule1.myprint(txt:string);
var
F:TextFile;
begin
AssignFile(F,'LPT1');
ReWrite(f);
Writeln(F,txt);
Close(F);
end;
新机器主板上没有串口LPT1,需要加一个PCI卡转换为LPT1串口,但加卡转换后,无法正常打印。
提示:File not found请各位帮忙,谢谢。打印程序如下:
procedure TDataModule1.myprint(txt:string);
var
F:TextFile;
begin
AssignFile(F,'LPT1');
ReWrite(f);
Writeln(F,txt);
Close(F);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货