Переинициализация принтеров

Bogdan

Есть ли возможность програмно заставить переинициализироватся принтеры ?
Например после добавления сетевого принтера FR его не видит до перезагрузки модуля я.

AlexTZ

uses frxPrinter;
frxPrinters.FillPrinters;

Bogdan

Спасибо

Bogdan

При такой переинициализации слетает DefaultPrinter

Я делал так: (код писался ещё для 3.10 поэтому есть лишнее)

  procedure ReInitPrinters;
  var
    I: Integer;
    OldPrinterName: String;
  begin
    with FPrinters do begin
      if FPrinters.Count > 0 then
        OldPrinterName := Printer.Name
      else
        OldPrinterName := '';
      FPrinters.Clear;
      for I := Pred(FPrinterList.Count) downto 0 do begin
        TObject(FPrinterList.Items[I]).Free;
        FPrinterList.Delete(I);
      end;
      FillPrinters;
      FHasPhysicalPrinters := FPrinterList.Count > 0;
      if not FHasPhysicalPrinters then begin
        FPrinterList.Add(TfrxVirtualPrinter.Create(frxResources.Get('prVirtual'), ''));
        PrinterIndex := 0;
      end else begin 
        I := IndexOf(OldPrinterName);
        if I < 0 then
          PrinterIndex := IndexOf(GetDefaultPrinter)
        else
          PrinterIndex := I;
      end;
    end;
  end;