Código Delphi [-] procedure TFrmHab.BtnEmpleadoClick(Sender: TObject); begin try RReport:=TRReport.Create(self); TblImprime.Open; TblImprime.Filter := 'Numero =' +Edit1.Text; TblImprime.Filtered := True; RReport.Preview; finally RReport.Free; end;
procedure TFrmHab.BtnEmpleadoClick(Sender: TObject); begin try RReport:=TRReport.Create(self); TblImprime.Open; TblImprime.Filter := 'Numero =' +Edit1.Text; TblImprime.Filtered := True; RReport.Preview; finally RReport.Free; end;