REPORT FORM (rpttoview) &prescope FOR &forclause PREVIEW IN WINDOW PREVIEWFORM>The F3 key (even manually pressed with preview window open) does nothing. I think I am running into the same problem I am experiencing in another thread that I cannot get the horizontal scrollbar to be visible unless I manually click on maximize once the preview comes up (a separate issue). The F10 key does nothing either, only double-clicking in the preview window's title bar or clicking on maximize will actually maximize the form yet the form is the size of a maximized window. As soon as I issue the MOUSE DBLCLICK command in deactivate, the toolbar docks as I want it to but the form is no longer maximized 'literally'. The report designer window never exists - I've trapped for it throughout the entire process. The problem I have is that I send the report to window inside a form using:
>LOCAL oPreviewForm >oPreviewForm = NEWOBJECT('PreviewForm', 'Pro32.vcx') >REPORT FORM (rpttoview) &prescope FOR &forclause WINDOW PREVIEWFORM PREVIEW >oPreviewForm.Release >>
>*--Preview form class deactivate >DODEFAULT() >IF WEXIST('Report Designer') && <-never runs because it doesn't exist > MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer" > INKEY(.1) > MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer" >ENDIF >IF WEXIST('Print Preview') > MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview" >ENDIF >>
>>*YzoomIT.prg >>IF WEXIST("Print Preview") AND NOT wexist("Printing...") >> >> LOCAL lcsetresource >> lcsetresource=SET("resource") >> SET RESOURCE OFF &&IMPORTANT, otherwise it will remember the last setting >> * (when set to MAX with Ctrl+F10) and next time will set it back >> keyboard '{Ctrl+F10}' && remove it if you wish >> >> KEYBOARD '{F3}' &&75% >>* KEYBOARD '{F3}{F3}' &&50% >>* KEYBOARD '{F3}{F3}{F3}' &&25% >>* KEYBOARD '{F3}{F3}{F3}{F3}' &&10% >> >> MOUSE DBLCLICK AT -0.1,0.2 WINDOW "Print Preview" >> >> SET RESOURCE &lcsetresource >> >>endif >> >>>>