var PrinterSettings: TQuickRepPrinterSettings;
en ese caso tendrás que asignarle en el OnPreview lo siguiente:
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;
Ważne artykuły