how to test if report preview window is visible

[samsnead]

We have a report that prints multiple "reports" using scan endscan. We have created an exitpreview button that will exit the scan when clicked. However, if you click at wrong time (while the preview is being generated) you sometimes get an error message with options to try again don't try or cancel *Yes, No, Cancel). Cancel works ok and goes back to program.

Since we have novice users that will click the exitpreview at will, we want to disable that button until the report preview window or toolbar is displayed. Is there an easy way to detect this?

 

[jimstarr]

Unless you use the NOWAIT clause you won't get to the statement following "REPORT FORM" until the preview window is closed. So I suggest:

THISFORM.button1.ENABLED = .F.
REPORT FORM ..... PREVIEW
THISFORM.button1.ENABLED = .T.

Jim

 

[samsnead]

Hi Jim - that almost works but because in a scan loop, quickly gets back to the THISFORM.button1.ENABLED = .F.
I would like to disable the button (in when of click) when the preview is visible. It is VFP9 so there probably is a reportpreview property that I can check. Just trying to find it.

 

[alvechurchdata]

WEXIST("Print Preview") will tell you if the preview toolbar is on screen.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[samsnead]

Thx Geoff - for some reason that didn;t work (although it should). I ended up putting in this code in the when of the command on my exitpreview toolbar and now is ok.
FOR nCount = 1 TO _SCREEN.FormCount
IF UPPER(_SCREEN.Forms(nCount).Name)="PREVIEWTOOLBAR"
llrval=.T.
RETURN .T.

ENDIF
ENDFOR

at least until testers test it !!