D
DaLun
Unregistered / Unconfirmed
GUEST, unregistred user!
分四个厨房，每个厨房放一个打印机，我在前台点完菜后根据菜的类别对应的厨房，分别
将对应的菜品在各自的厨房打印出来，这点我想用打印服务器应该可以做到，但是他还需要
打印条码，这个东西如何在远程打印机上打印出来呀！！！！
请看以下是我的打印程序：
procedure TTPS_Show.PrintOneRecord;
//打印一条信息
var
TF: TextFile;
begin
AssignFile(TF, printername);
//printername是打印机的名称，例如：//192.168.0.3/espon1
ReWrite(TF);
Writeln(TF, ' 传菜单 ');
Writeln(TF, ' -------------------------');
Writeln(TF, ' 单号：' + PRecord.tpid);
writeln(TF, ' 菜品名称： ' + PRecord.mrs);
Writeln(TF, ' 流水号： ' + PRecord.id);
Writeln(TF, ' 桌台号： ' + PRecord.TPSName);
Writeln(TF, ' 地点号： ' + PRecord.xmmc);
Writeln(TF, ' 数量： ' + IntToStr(PRecord.num) + ';
单位：' + PRecord.xmdw);
Writeln(TF, ' 日期： ' + PRecord.Date + ';
时间:' + PRecord.Time);
Writeln(TF, ' 厨房： ' + PRecord.TPS);
Writeln(TF, ' ');
Writeln(TF, ' ');
writeln(TF, ' ');
Writeln(TF, ' ');
Writeln(TF, ' ');
CloseFile(TF);
end;
我现在想打印条码，如何实现？？？
将对应的菜品在各自的厨房打印出来，这点我想用打印服务器应该可以做到，但是他还需要
打印条码，这个东西如何在远程打印机上打印出来呀！！！！
请看以下是我的打印程序：
procedure TTPS_Show.PrintOneRecord;
//打印一条信息
var
TF: TextFile;
begin
AssignFile(TF, printername);
//printername是打印机的名称，例如：//192.168.0.3/espon1
ReWrite(TF);
Writeln(TF, ' 传菜单 ');
Writeln(TF, ' -------------------------');
Writeln(TF, ' 单号：' + PRecord.tpid);
writeln(TF, ' 菜品名称： ' + PRecord.mrs);
Writeln(TF, ' 流水号： ' + PRecord.id);
Writeln(TF, ' 桌台号： ' + PRecord.TPSName);
Writeln(TF, ' 地点号： ' + PRecord.xmmc);
Writeln(TF, ' 数量： ' + IntToStr(PRecord.num) + ';
单位：' + PRecord.xmdw);
Writeln(TF, ' 日期： ' + PRecord.Date + ';
时间:' + PRecord.Time);
Writeln(TF, ' 厨房： ' + PRecord.TPS);
Writeln(TF, ' ');
Writeln(TF, ' ');
writeln(TF, ' ');
Writeln(TF, ' ');
Writeln(TF, ' ');
CloseFile(TF);
end;
我现在想打印条码，如何实现？？？