Impressora padrão

Oi,
Você pode usar o objeto TPrinter, basta declarar Printers na cláusula Uses e você terá acesso às impressoras do windows. Mais ou menos assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.Items:=Printer.Printers;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Printer.PrinterIndex:=2;
Edit1.text:=Inttostr(Printer.PrinterIndex);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.text:=Inttostr(Printer.PrinterIndex);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Printer.Begindoc;
Printer.Canvas.textout(1,1,´Paulo´);
Printer.EndDoc;

end;

No primeiro botão simplesmente listei as impressoras instaladas no windows. No segundo mudei a impressora padrão para a terceira da lista (pois por padrão é a 0 (zero), primeira da lista). O terceiro botão é só para mostrar a padrão atual em inteiro (PrinterIndex). O quarto foi um teste que fiz para ver se realmente o programa imprime na nova impressora. Deu certo. Só que você só muda a padrão para o seu programa. Quando você abre o gerenciador de impressoras do windows, após usar o programa, você vê que a padrão continua a anterior.
Abraços.