Do you mean that closing of the preview window should come as the last step? We do have a code in application object that closes all open forms.

>First of all, you need to close all open forms !
>

>LOCAL cCaption, i, X
>X = _SCREEN.FORMCOUNT
>FOR i = X TO 1 STEP -1
>    IF TYPE("_screen.forms(i).status") = "N" AND _SCREEN.FORMS(i).STATUS > 0
>       cCaption = _SCREEN.FORMS(i).CAPTION
>       LOCAL lnNrBotão
>       lnNrBotão = MESSAGEBOX( ;
>          'Do you want to save data from FORM '+CHR(13)+'     &cCaption.?', ;
>			32+4+0, ;
>			[Attention],10*60000)
>       DO CASE
>	   CASE lnNrBotão = 6	AND _SCREEN.FORMS(i).ISEDITING = .T.  && Yes
>		_SCREEN.FORMS(i).SAVEDATA
>	   CASE lnNrBotão = 7	AND _SCREEN.FORMS(i).DESFAZER.enabled = .T. && No
>		_SCREEN.FORMS(i).UNDOCHANGES
>       ENDCASE
>    ENDIF
>    * If exists RELEASE method, then close
>    IF pemstatus(_SCREEN.FORMS(i), 'RELEASE',5)
>       _SCREEN.FORMS(i).RELEASE
>    ENDIF
>ENDFOR
>