Delphi - Como salir del preview de Quickreport

Hola Amigos!

Quiero me ayuden. Necesito saber como salir de un reporte en preview de quickreport a nivel de comando sin necesidad de tener que presionar el boton de <Close>.

Muchas gracias, aprecio sus ayudas.

Tal vez haya una forma más fácil, pero por ahora lo único que se me ocurre es obtener el handle de la ventana del Preview con la API FindWindow y enviarle un mensaje WM_CLOSE para decirle que se cierre:

var
PreviewHandle : HWND;
begin
PreviewHandle := FindWindow('TQRStandardPreview', nil);
if PreviewHandle <> 0 then
SendMessage(PreviewHandle, WM_CLOSE, 0, 0);

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php