Ver Mensaje Individual
  #3  
Antiguo 28-05-2008
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 922
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Otra alternativa es que crees tu propio visualizador de informes, es muy sencillo:

Debes colocar en un form el componente TQRPreview.

Ahora el codigo:

Supongamos que tu informes se llama QuickRep1 y nuestro componente de visualizacion es QRPreview1.

Esto es lo que debes hacer:

Código Delphi [-]

procedure TForm1.cmdOpenReportClick(Sender: TObject);
begin
       //Visualizar el reporte.
       QuickRep1.Preview;
end;

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
       //Asignar la visualizacion del reporte a QRPreview1.
       QRPreview1.QRPrinter:=TQRPrinter(Sender);
end;

procedure TForm1.cmdPrintSetupClick(Sender: TObject);
begin
      //Llama al metodo para configurar la impresora. 
      QRPreview1.QRPrinter.PrintSetup;
end;

procedure TForm1.cmdFirstPageClick(Sender: TObject);
begin
      //Va a la primera pagina del informe 
      QRPreview1.PageNumber:=1;
end;

procedure TForm1.cmdLastPageClick(Sender: TObject);
begin
     //Va a la ultima pagina del informe
     QRPreview1.PageNumber:=QRPreview1.QRPrinter.PageCount;
end;

procedure TForm1.cmdPrevPageClick(Sender: TObject);
begin
     //Va a la pagina anterior
     QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
     If (QRPreview1.PageNumber<0) Then
        QRPreview1.PageNumber:=1;
end;

procedure TForm1.cmdNextPageClick(Sender: TObject);
begin
     //Va a la pagina siguiente
     If (QRPreview1.PageNumber+1>=QRPreview1.QRPrinter.PageCount) Then
        QRPreview1.PageNumber:=QRPreview1.PageNumber+1;

end;

procedure TForm1.cmdPrintClick(Sender: TObject);
begin
     //Imprime el informe.
     QRPreview1.QRPrinter.Print;
end;

Es un metodo muy sencillo para visualizar los informes Quicreport, el cual tu puedes personalizar y darle la forma que desees.

Saludos
Responder Con Cita