Código Delphi [-] procedure TlstCli.listaclientesBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin prnDialog.Execute; listaClientes.PrinterSettings.Printerindex:=Printer.PrinterIndex;
procedure TlstCli.listaclientesBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin prnDialog.Execute; listaClientes.PrinterSettings.Printerindex:=Printer.PrinterIndex;