急急急,,,,,,,,,,,,,,,在线

procedure TForm1.btnPrint1Click(Sender: TObject);
begin
  sp3.Close;
  sp3.Parameters[1].Value:='0';
  sp3.Open;
  if(grp1.ItemIndex=0)and(grp2.ItemIndex<>2)and(grp3.ItemIndex=0) then
    rpt1.LoadFromFile('reports\正常卷箱标合箱.frf');
  if(grp1.ItemIndex=0)and(grp2.ItemIndex<>2)and(grp3.ItemIndex=1) then
    rpt1.LoadFromFile('reports\正常卷箱标.frf');
  if(grp1.ItemIndex=1)and(grp2.ItemIndex<>2)and(grp3.ItemIndex=0) then
    rpt1.LoadFromFile('reports\短米卷箱标合箱.frf');
  if(grp1.ItemIndex=1)and(grp2.ItemIndex<>2)and(grp3.ItemIndex=1) then
    rpt1.LoadFromFile('reports\短米卷箱标.frf');
  rpt1.ChangePrinter(Printer.PrinterIndex,Printer.printers.IndexOf('Zebra  105SL (300dpi)111'));
  rpt1.PrepareReport;
  rpt1.PrintPreparedReport('',1,true,frAll);end;procedure TForm1.btnPrint2Click(Sender: TObject);
begin
  sp3.Close;
  sp3.Parameters.ParamByName('@Fstatus').Value:='1';
  sp3.Open;
  if(grp1.ItemIndex=0)and(grp2.ItemIndex<>0) then
    rpt2.LoadFromFile('reports\正常卷袋标.frf');
  if(grp1.ItemIndex=1)and(grp2.ItemIndex<>0) then
    rpt2.LoadFromFile('reports\短米卷袋标.frf');
  rpt2.ChangePrinter(Printer.PrinterIndex,Printer.printers.IndexOf('Zebra  105SL (300dpi)222'));
  rpt2.PrepareReport;
  rpt2.PrintPreparedReport('',1,true,frAll);end;procedure TForm1.btnAllPrintClick(Sender: TObject);
begin
  btnPrint1.Click;
  btnPrint2.Click;
end;本计算机联接两台打印机Zebra  105SL (300dpi)111和Zebra  105SL (300dpi)222现在问题是我将btnPrint1Click事件中的打印机Zebra  105SL (300dpi)111设为默认并改动其内设置如纸大小等,那么出现问题是btnPrint2.Click中所用的打印机Zebra  105SL (300dpi)222设置同样被修改
与111机相同