在自定义窗口中显示报表预览，为何点一下报表，出现“no table is open in the current work area”呢,该怎么解决

在自定义窗口中显示报表预览，为何点一下报表，出现“no table is open in the current work area”呢
在自定义窗口中显示报表预览，为何点一下报表，出现“no table is open in the current work area”呢
就是下面的代码，可以实现在自定义窗口显示报表预览，但是问题有二。
1.没有滚动条，无法看到整个报表，（我的报表是A3纸打印的）
2.我点一下报表，出现提示：
no table is open in the current work area
意思我明白，是当前工作区，没有表打开，
但是我不明白，为什么？
如果不在自定义窗口显示报表，不会出现这种现象，
我如何解决呢？


*!*DEFINE WINDOW w_printform ;
*!* FROM 1, 1 TO 200, 300 ;
*!* TITLE "Parent" && 父窗口。
*!*  
*!*activate windows w_printform 
*!*deac wind w_printform 
*!*ZOOM WINDOW w_printform MAX


*!*REPORT FORM repgzybb_shebei PREVIEW WINDOW w_printform NOWAIT 
*!*RELEASE WINDOWS w_printform

[解决办法]
1. 关于没有滚动条的问题，是因为用 define window 创建的窗口不存在滚动条，一般采用类似下面的方式来做到：

VB code

oo = NEWOBJECT('Preview')oo.Visible = .T.REPORT FORM ? PREVIEW WINDOW (oo.name) NOWAIT DEFINE CLASS Preview AS Form  ScrollBar = 3  TitleBar = 0  WindowState = 2ENDDEFINE