Ahora la seleccion de impresora no funciona

[delphi.com.ar]

Si utilizas QuickReports, en lugar de usar un TPrintDialog, te recomiendo hacer lo siguiente:

begin
  QuickRep1.Tag := 0;
  QuickRep1.PrinterSetup;
  if QuickRep1.Tag = 0 Then
    QuickRep1.Print;
end;

Este "hermoso" código es lo que nos tiene acostumbrado QuickReport

Saludos!