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;