| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1366 人关注过本帖
标题:无法去掉vfp默认的打印预览工具栏
只看楼主 加入收藏
sdyswjlu
Rank: 1
等 级:新手上路
帖 子:108
专家分:0
注 册:2010-9-10
结帖率:95%
收藏
已结贴  问题点数:10 回复次数:2 
无法去掉vfp默认的打印预览工具栏
我根据网上下载的结合我做的表单,发给大家,希望大家给帮我看看问题出在什么地方?
表单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 编辑 ]
搜索更多相关主题的帖子: PUBLIC 工具栏 地方 
2011-01-03 20:08
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:5 
本人不才,我认为只要您在Rrport From命令中使用了PREVIEW,默认的预览打印工具就必然出现,与您创建没创建form1无关。不信您可以试试(在命令窗口直接输入:REPORT FORM dyzp NOCONSOLE PREVIEW )。
至于您自己的处理方法可不可以实现(我觉得您这样提出来真是太可笑了),您自己运行一下不就知道了吗!!

[ 本帖最后由 啸凡 于 2011-1-3 20:23 编辑 ]

两人行已有我师……
2011-01-03 20:21
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:5 
楼主为何非要在Report From命令中使用了PREVIEW,你能不能不使用PREVIEW呢.
2011-01-04 07:56
快速回复:无法去掉vfp默认的打印预览工具栏
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042468 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved