我目前用的是川田POS58的,指令是这样的:
使用Delphi编程的人员如果需要在Windows下使用并口打印机逐行打印,而又不想使用Windows的驱动程序。我们这里提供一种不需要任何外来的元件的方法。
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;
如果需要控制并口的POS58打印机开钱箱,也只需要重新给PDStr如下赋值:
PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);
使用Delphi编程的人员如果需要在Windows下使用并口打印机逐行打印,而又不想使用Windows的驱动程序。我们这里提供一种不需要任何外来的元件的方法。
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;
如果需要控制并口的POS58打印机开钱箱,也只需要重新给PDStr如下赋值:
PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);
其他票打一般都兼容它!