ejemplo TQRPreview

[El_Chava]

aaaa ok muchas gracias por tu tiempo y respuestas. estamos en contacto bye

[bubba]

Hola,

Para recuperar un fichero QRP, como te dicen, desde el formulario que se crea al hacer un Preview desde cualquier QuickReport lo puedes hacer.

Entiendo que a lo mejor no tienes un listado para que salga en el Preview, yo me encontré en esa situación y lo único que hice para construirme un Visualizador de QuickReports es crear un formulario con un QuickReport, en el FormCreate puse:

QuickRep1.Visible := False;

La propiedad PrintIfEmpty la puse a True y un botón [Visualizar], y en el evento OnClick hago un QuickRep1.Preview y me sale el Preview estándar de QuickReport, pero sin mostrarme nada y pulsando el botón de abrir el usuario puede abrir cualquier fichero QRP.

Si quieres utilizar el TQRPreview, entonces lo que harás es sustituir el formulario que se crea dinámicamente por el QuickReport, yo tengo uno propio y evidentemente te lo has de "currar" tú todo, puse una ToolBar con los botones necesarios (página Primera|Anterior|siguiente|Última, imprimir, Ampliar, etc), y por supuesto un componente TQRPreview.

Para usuar mi formulario de previsualización, en el evento OnPreview de cualquier QuickReport, escribo lo siguiente:

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
FormVisualizarQR.qrpListado.QRPrinter := TQRPrinter(Sender);
FormVisualizarQR.Show;
end;

Y en el evento OnShow del formulario que utilizo para previsualizar tengo lo siguiente:

procedure TFormVisualizarQR.FormShow(Sender: TObject);
begin
WindowState := wsMaximized;
Caption := qrpListado.QRPrinter.Title;
qrpListado.QRPrinter.PreviewModal;
end;

Y automáticamente me aparece el formulario por mí diseñado con la previsualización del QuickReport .

En tu caso, deberías tener un botón que sirva para "Leer QuickReport",
y deberias escribir esto en el evento OnClick de dicho botón (en mi caso es un TToolButton):

procedure TVISQR.ToolButton6Click(Sender: TObject);
begin
qrpListado.QRPrinter.Load('C:\LISTADO.QRP');
qrpListado.QRPrinter.Preview;
end;


Espero haberte ayudado, yo lo he probado y me ha funcionado.

Saludos

[El_Chava]

Muchas gracias compañero bubba voy a probar tu metodo cualquier duda estamos en contacto

[bubba]

Empezado por El_Chava

Muchas gracias compañero bubba voy a probar tu metodo cualquier duda estamos en contacto

De nada El_Chava!

Por cierto, en la claúsula Uses a continuación de Interface al principio de la Unit donde tienes tu QuickReport y llamarás al formulario con la previsualización, has de añadir la siguiente unit: QRPrntr (donde están las generales -Windows, SysUtils, Controls, etc...-), para que te reconozca el objeto TQRPrinter, es lo que explicaba como:

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
FormVisualizarQR.qrpListado.QRPrinter := TQRPrinter(Sender);
FormVisualizarQR.Show;
end;

En este TForm es donde has de poner en Uses la unit citada.

Saludos y suerte!