Ahora la seleccion de impresora no funciona

[Taribus]

Perdon ante todo por tardar en probar la solucion que me indico Delphi.com.ar, pero el resultado es ....

¡¡¡ GENIAL !!!

muchas graciasssssss.

Manuel .

[marcoszorrilla]

Otra solución:

Código Delphi [-]
En el OnPreview, asignar el siguiente código: 

var
  PrinterSettings: TQuickRepPrinterSettings;
with TFCustomPreview.Create(Self) do
begin
  QRPreview1.QRPrinter := QuickRep1.QRPrinter;
  PrinterSettings := QuickRep1.PrinterSettings;
  Show;
end;


y luego en el click de tu botón de imprimir haces lo siguiente: 

if  PrintSetupDialog1.Execute Then
begin
  PrinterSettings.PrinterIndex:= Printer.PrinterIndex;
  QRPreview1.QRPrinter.Print;
end;

Un Saludo.