Trocar impressora padrão do Windows

Uma dúvida muito frequente em nossos mails são referentes a troca de impressoras em determinados relatórios. A rotina que apresentamos a seguir realiza essa troca:

procedure TForm1.FormShow(Sender: TObject);

var

i: integer;

begin

// Limpa a lista de impressoras mostradas

ListBoc1.Items.Clear;

// Atualiza listbox com nome das impressoras

for i := 1 to Printer.Printers.Count do

ListBox1.Items.Add(Printers[i - 1]);

end;

Para selecionar uma determinada impressora, basta atribuir um inteiro à Printer.PrinterIndex, como você verá a

seguir:

Printer.PrinterIndex := ListBox1.ItemIndex;