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;
所以用并口转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;