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