...get the name of the default printer?

unit printers;

begin
  //...
  Printer.PrinterIndex := -1;
  DefaultPrnName := Printer.Printers.Strings[Printer.PrinterIndex];
  //...
end;

printed from
www.swissdelphicenter.ch
developers knowledge base