procedure TfrLstFact.lstFacturasBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin prnDialog.Execute; lstFacturas.PrinterSettings.Printerindex:=Printer.PrinterIndex;