我根据网上下载的结合我做的表单，发给大家，希望大家给帮我看看问题出在什么地方？
表单1上有一个command1，
command1  click 事件
PUBLIC aForm,oform
IF !UPPER("FOXTOOLS") $ SET("LIBRARY")
SET LIBRARY TO  Foxtools.Fll
ENDIF
DO DefinirForma
DO DOVistaPrevia



PROCEDURE DefinirForma
oForm = NEWOBJECT("Form002", "", "", "打印预览")
oForm.Show
DEFINE CLASS Form002 AS Form
AutoCenter = .T.
BorderStyle = 3
Caption = "APLIC_NAME" && 这个标题是可以改变的
Desktop = .T.
DoCreate = .T.
FontBold = .T.
FontName = "MS Sans Serif"
FontSize = 8
Height = 350
Name = "Form002"
ShowWindow = 2
SizeBox = .T.
TabStop = .F.
Tag = "501"
TitleBar = 0 && **** 重要！不要改动 ****
Width = 474
windowstate=2
icon="c:\documents and settings\administrator\桌面\自动获取照片\shell32.dll_22.ico"

PROCEDURE Init
LPARAMETERS lcCaption
LOCAL lnWHandle
THIS.Caption = lcCaption
*-- 这里设置的标题将不会显示
_WSetTitle(_WFindTitl(THIS.Caption), THIS.Caption)
ENDPROC

endif
ENDPROC

ENDDEFINE
ENDPROC



*-- Procedure DoVistaPrevia
PROCEDURE DoVistaPrevia
LOCAL lcAlias
lcAlias = ALIAS()
CREATE CURSOR TempDbf (TempMemo m)
SELECT TempDbf
APPEND BLANK
REPLACE TempDbf.TempMemo WITH "打印预览"
REPORT FORM dyzp NOCONSOLE PREVIEW  IN  WINDOW Form002
MOVE WINDOW "打印预览"  TO 100,100
RELEASE  WINDOW "打印预览"

SELECT TempDbf
USE
IF !EMPTY(lcAlias) AND USED(lcAlias)
SELECT (lcAlias)
ENDIF
RELEASE WINDOWS Form002
ENDPROC


REPORT FORM dyzp NOCONSOLE PREVIEW  IN  WINDOW Form002&&&&预览显示在Form002中，并出现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:16 编辑 ]