Hallo und Willkommen in der
DP 
,
der PrintDialog tut genau das, wozu er da ist, nämlich einen Dialog zur Druckerauswahl bereitzustellen. Das Drucken selbst musst Du übernehmen.
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
Print;
end;