Hmmm... I don't think my users would like prompts in Dutch(?), but otherwise it looks useful. :)

Thanks,

-Michelle


>Michelle,
>
>In addition to what Cristof and Rick said. This is a confirmed bug and can be found in the MS kb. It occurs when a preview is maximized.
>
>I've found a solution to make a class which shows me a preview including the solution cristof gave and a solution which allows you to have your own title bar above your preview. The code looks like this:
>
>LPARAMETER cReport, lPreview, lNoPrompt, cOptions
>
>cOptions=IIF(!EMPTY(cOptions),cOptions,"")
>
>THIS.lSucces=.T. && could be changed in the error event
>DO CASE
> CASE !FILE(cReport) AND !FILE(cReport+".frx")
> WAIT WINDOW "Het rapport is niet gevonden"
>
> CASE lPreview
> DEFINE WINDOW _Preview FROM 1,1 TO WROWS("")-2,WCOLS("")-2 ;
> CLOSE FLOAT NOMINIMIZE GROW ZOOM SYSTEM TITLE "Afdrukvoorbeeld" NAME preview
>
> WITH Preview
> .Top=5
> .Left=5
> .Width=_Screen.Width-20
> .Height=_Screen.Height-40
>
> .Icon="C:\tax\icons\vfp\preview.ico"
> .MDIFORM=.T.
> ENDWITH
>
> PUSH MENU _MSYSMENU
> REPORT FORM (cReport) &cOptions NOCONSOLE WINDOW _Preview PREVIEW
> POP MENU _MSYSMENU
>
> RELEASE WINDOW _Preview
>
> CASE lNoPrompt
> REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER
>
> OTHERWISE
> REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER PROMPT
>ENDCASE
>RETURN THIS.lSucces