我用编程方式创建的一个表单，我想书写表单的activate事件，表单的activate事件中用wexist("打印预览")检查“打印预览”窗口是否已打开，如果打开的话用release window “打印预览”关闭。
如何写表单的activate事件？

frmMyForm = CREATEOBJECT('Form1')  && Create a Form
frmMyForm.SHOW  && Display the form

DEFINE CLASS Form1 AS FORM
 PROCEDURE Activate
 =MESSAGEBOX('aaaaaaaaa')
 ENDPROC
ENDDEFINE

REPORT FORM dyzp NOCONSOLE PREVIEW  IN  WINDOW Form1&&&&预览显示在Form1中，并出现vfp默认的打印预览工具栏
我想把vfp默认的打印预览工具栏去掉，用自已制作的工具栏显示在form1中，
由于本人水平有限，无法去掉vfp默认的打印预览工具栏。

我想通过设置form1的 activate事件
            if  wexist("打印预览" )
            RELEASE  WINDOW "打印预览"
            endif
不知道是否实现，如果不行，高手们有没有办法解决？



本人分析对不对：
关键是执行REPORT FORM dyzp NOCONSOLE PREVIEW  时，先创建了form1，即使在 form1的 activate事件包含：
            if  wexist("打印预览" )
            RELEASE  WINDOW "打印预览"
            endif
也无法去掉vfp默认的打印预览工具栏。
因为先创建form1，然后才执行REPORT FORM dyzp NOCONSOLE PREVIEW  ，所以无法去掉vfp默认的打印预览工具栏。



[ 本帖最后由 sdyswjlu 于 2011-1-3 20:05 编辑 ]