cerrar preview del quickreport

[elzorro1957]

Muchas gracias, me ha sido de mucha utilidad poder cerrar desde el código la ventana con la vista previa del Quick Report.

[rgstuamigo]

Empezado por elzorro1957

Muchas gracias, me ha sido de mucha utilidad poder cerrar desde el código la ventana con la vista previa del Quick Report.

Bueno pensandolo bien y viendo éste hilo tambien se podia cerrar la ventana de Preview de ésta manera:

Código Delphi [-]
procedure TForm1.CerrarClick(Sender: TObject);
begin
TQRStandardPreview(QuickRep1.QRPrinter.Client.Parent).ExitButton.Click;
end;

.
Claro está que no hay que olvidarse de incluir la unidad QRPrev en el Uses.
Saludos...

[tengotutto]

A mi me tiraba el error "Illegal call to NewPage" y era porque el usuario cerraba el form antes de terminar de generar la vista previa.


Lo controle en el FormCloseQuery con:



CanClose := (OQRPreVista.QRPrinter.Status <> mpBusy);