用程序如何修改QuickReport的默认打印机

Question

我现在计算机上安装了两台打印机，一台是EPSON LQ1600K（默认打印机），另一台是PIC-PRINTER，现在我想这么做，在一个应用程序里，不要用户自已去切换默认打印机，用程序来自已切换，即有的时候用PIC-PRINTER，就将PIC-PRINTER设置为默认打印机,若要用EPSON LQ1600K,就将之自动设置为默认打印机.项目较急,请各位大哥帮忙!

Answer 1

pstr,s: string;
begin
    Combobox1.clear;
    if printer.printers.count=0 then
       exit;
    for i := 0 to printer.printers.count - 1 do
    begin
      pstr :=printer.printers.Strings[i];//'MyPrinter'为控制面板上的打印机名
      Combobox1.items.Add(pstr);//枚举
      if pstr = 'MyPrinter' then begin
         if printer.PrinterIndex=-1 then
            s:=pstr;
      end;
    end;
    //初值为-1时为默认打印机,显示默认打印机
    Combobox1.Text:=pstr;
end;