Bug in printers.pas beim Umstellen des Druckers

[Bjoerk]

Mal Printer.Refresh versucht?

Delphi-Quellcode:

var
  Device, Driver, Port: array [0..200] of char;
  DeviceMode: Cardinal;
begin
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  if DeviceMode <> 0 then
  begin
    Result := Device;
    Printer.Refresh; // ***
  end
  else
    Result := 'Druckstatus';
end;