Hast du mal einen TPrinterDilaog vorgeschaltet?
Soweit ich weis tätig der alle Einstellungen automatisch, nur PrinterIndex reicht glaube ich nicht.
Also: falls dus noch nicht probiert hat:
Zieh einen TPrinterDialog auf dein Formular und schliesse den Code hiermit ein:
Delphi-Quellcode:
If PrinterDialog1.Execute then
begin
// Restlicher Code hier
end;