LPT转USB,如何进行打印(50分)(50分)

  • 主题发起人 主题发起人 zqssoft
  • 开始时间 开始时间
Z

zqssoft

Unregistered / Unconfirmed
GUEST, unregistred user!
请问小票打印机是并口,现用笔记本上,由于没有并口。
所以用并口转USB口线连接,如何用程序控制打印小票出来?
以前的代码并口可以打印,可用USB转接后就不能打印了,请问
该如何修改解决
procedure TFrm.Button1Click(Sender: TObject);
var F: TextFile;
PDStr: string;
begin
try
PDStr := 'Delphi Printer on LPT1' + chr(10);
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, PDStr);
CloseFile(F);
except
Messagedlg('数据发送失败!', mterror, [mbok], 0);
end;
end;
 
用打印驱动,或加个PCI转LTP卡解决,不要老用程序解决问题
 
接受答案了.
 
后退
顶部