Ver Mensaje Individual
  #4  
Antiguo 02-12-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Bueno entonces si no se puede por las buenas entonces por las malas.
Vamos a utilizar algunas API de Windows para cerrar la dichosa ventana.
ejemplo:
Código Delphi [-]
procedure TForm1.CerrarClick(Sender: TObject);
var
  hWnd:THandle;
begin
  hWnd:=FindWindow(nil, 'Report Preview : Prueba');//busco el handle de la ventana de previsualizacion
{En el caso tuyo debes poner el Caption que te aparece en la ventana De previsualizacion}
  SendMessage(hWnd,WM_SYSCOMMAND,SC_CLOSE,0);//mando a cerrar dicha ventana
end;
Espero te sea de utilidad.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 03-12-2009 a las 19:50:40.
Responder Con Cita