V Delphi máš predsa v palete nástrojov (Tool Palette) kartu Dialogs a tam štandardné dialogové okná. Mimo iných aj TPrintDialog a TPrinterSetupDialog...
Stačí zavolať príslušnú metódu dialogu: Execute --> if not PrinterSetupDialog1.Execute then Exit;