Как узнать, какие принтеры установлены в системе 2
// uses printersprocedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
ListBox1.Items.Clear;
for i := 0 to Printer.Printers.Count - 1 do
ListBox1.items.Add(Printer.Printers.Strings[i]);
end;