Ver Mensaje Individual
  #5  
Antiguo 25-07-2012
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Reputación: 13
MartinS Va por buen camino
Solo para verificar:

1.- QrEstimacions que serian?
2.- Y si haces la llamada al TQrcompositeReport así:

Código Delphi [-]
procedure TfrmEstimationsReports.btnGenerateReportsClick(Sender: TObject);
begin
  with frmReport_Estimations do
    begin 
      if fcnInitialization then
        begin          
         // qrEstimations.Prepare;         
         // qrEstimations.PreviewModal; 
          QRCompositeReport1.Preview; // Para una preliminar                   
        end;
    end  
end;

Puse QRCompositeReport1 ya que a ese le estas asignando los reportes unitarios o estoy equivocado?
a modo de ejemplo yo lo uso asi:

Código Delphi [-]
procedure TPImpInstitucional.ConjuntoAddReports(Sender: TObject);
begin
   With Conjunto.Reports do
   Begin
     Add(RepActitud);
     Add(RepTrayectoria);
   End;
end;
Donde conjunto es un TQRCompositeReport y despues de acuerdo a un selector de impresion hago esto:

Código Delphi [-]
    case destinoImpresion of
    0: Conjunto.Preview;
    1: Conjunto.Print;
    2: Begin
        SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
                                ConsInt.FieldByName('Nombres').AsString+'.pdf';
        SaveDialog1.Execute();
        Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') );
       End;
    end;

Saludos.-
Responder Con Cita