[[Caral]]

Hola

Código Delphi [-]
procedure TForm_requerimiento.btnBimprimirClick(Sender: TObject);
var i:Integer;
begin
  if wregistros_resumen>0 then
    begin
  try
  Application.CreateForm(TQuick_report_asig, Quick_report_asig);
 //Form_requerimiento.Qry_resumen.Refresh;
  with Form_requerimiento.Qry_resumen do
    begin
      First;
      while not Form_requerimiento.Qry_resumen.Eof do
        begin
          Quick_report_asig.txt_lic_detalle.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion'  ).AsString;
          Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion')  .AsString;
          Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion')  .AsString;

          Form_requerimiento.Qry_resumen.Next
        end;
    end;
  Quick_report_asig.Preview;
  finally
  Quick_report_asig.Free;
 end
 else
  begin
    Application.MessageBox('No Existen Datos para poder llevar a cabo la impresión'+chr(13)+'debe aplicar criterios para oder llevar a cabo una busqueda',PChar(Application.Title), MB_OK + MB_ICONERROR);
    Exit;
  end;
end;

Saludos