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

Комментарии

• AlexTZ

  July 2005 отредактировано 07:16

  uses frxPrinter;
  frxPrinters.FillPrinters;
• Bogdan

  July 2005 отредактировано 07:16

  Спасибо
• Bogdan

  July 2005 отредактировано 07:16

  При такой переинициализации слетает 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;