D
dbdubao
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟正在做一个餐饮系统,后厨打印功能在大富翁里找到代码,一个本机联接的EPSON300K打印机,一个打印服务器联接的EPSON300K,但是打印是总是打在一个打印机上。代码如下
while not dm.cfx1.Eofdo
begin
if dm.cfx1.FieldByName('prnname').AsString <>
'' then
begin
Quickrep1.ccd.Caption:='传菜单'+'('+dm.cfx1.fieldbyname('ddzd').asstring+')';
Quickrep1.cpmc.Caption:='菜品名称:'+dm.cfx1.fieldbyname('name').asstring;
.......
Quickrep1.PrinterSettings.PrinterIndex:=printers.printer.printers.IndexOf(dm.cdcjltemp.FieldByName('prnname').AsString);
Quickrep1.Print;
dm.cfx1.Next;
end;
end;
哪位大哥给指条路啊。急!!!!!!!
while not dm.cfx1.Eofdo
begin
if dm.cfx1.FieldByName('prnname').AsString <>
'' then
begin
Quickrep1.ccd.Caption:='传菜单'+'('+dm.cfx1.fieldbyname('ddzd').asstring+')';
Quickrep1.cpmc.Caption:='菜品名称:'+dm.cfx1.fieldbyname('name').asstring;
.......
Quickrep1.PrinterSettings.PrinterIndex:=printers.printer.printers.IndexOf(dm.cdcjltemp.FieldByName('prnname').AsString);
Quickrep1.Print;
dm.cfx1.Next;
end;
end;
哪位大哥给指条路啊。急!!!!!!!