为什么我的网络打印机切换命令。。。。急！急！急！急！急！急！急！

为什么我的网络打印机切换命令在实际运行中不能按我的意图来，，速请高手指教。
procedure Tdiandan_w.N9Click(Sender: TObject);
var
 i:integer;print_name:string;
begin
//返回打印机机位列表;
ADOQuery_print.Close;
ADOQuery_print.sql.Clear;
ADOQuery_print.sql.Add('select distinct cpfrom from liushuizhangmingxiku where danhao='''+trim(Edit4.Text)+'''');
ADOQuery_print.Open;
while not ADOQuery_print.Eof do
 begin
   print_name:=trim(ADOQuery_print.fieldbyname('cpfrom').AsString);
   Printer.PrinterIndex:=printer.Printers.IndexOfName(print_name);
   bb_dycfgzd_w.ADOQuery1.Close;
   bb_dycfgzd_w.ADOQuery1.sql.Clear;
   bb_dycfgzd_w.ADOQuery1.sql.Add('select * from liushuizhangmingxiku where cpfrom='''+print_name+''' and danhao='''+trim(Edit4.Text)+'''');
   bb_dycfgzd_w.ADOQuery1.Open;
   bb_dycfgzd_w.QuickRep1.Print;
   ADOQuery_print.Next;
 end;
end;在设置当前打印机时我是使用这条命令的
   Printer.PrinterIndex:=printer.Printers.IndexOfName(print_name);
实际打印时候总是在缺省打印机进行打印。