uses Printers;
procedure TForm1.Button1Click(Sender: TObject); begin Printer.Printers[-1]; //Sélectionne l'imprimante par défaut end;