Tprinter ist NIL, warum?

[Sir Rufo]

Darum

Delphi-Quellcode:

// Auszug aus der Unit Printers

function Printer: TPrinter;
begin
  if FPrinter = nil then
    FPrinter := TPrinter.Create;
  Result := FPrinter;
end;

Jetzt kann ich mir nur noch vorstellen, dass printer.printers.indexof (DefaultPrnt) -1 zurückliefert

Edit: Nö, auch nicht ... denn wenn Printer.Index auf -1 gesetzt wird, dann wird automatisch der DefaultPrinter ausgewählt.
Somit lässt sich dein Code darauf reduzieren, dass du einfach schreibst
Printer.PrinterIndex := -1; Sind überhaupt Drucker installiert und ist auch ein Drucker als Standard gewählt?