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;