Como listar as impressoras disponíveis?

É necessário estar declarado Printers na seção uses,
em versões unicode declare Vcl.Printers;

Crie um novo projeto e adicione um botão e um listbox,
e no evento OnClick do botão, deixe conforme o exemplo abaixo:

1
2
3
4
5
6
7

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(Printer.Printers);
 
  // Se preferir pode listar as impressoras em um combobox
  //ComboBox1.Items.Assign(Printer.Printers);
end;