以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口打印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39273)
--  作者：yuyijun2
--  发布时间：2013/8/20 11:38:00
--  窗口打印
在a窗口设置一个按钮预览打印b窗口的代码怎么写？
--  作者：Bin
--  发布时间：2013/8/20 11:48:00
--  
if Forms("另外一个窗口名").Opend then
Dim doc As PrintDoc = Forms("另外一个窗口名").GernatePrintDoc()
doc.Print()
end if
--  作者：yuyijun2
--  发布时间：2013/8/20 12:14:00
--  

不行，出现错误提示

 
--  作者：Bin
--  发布时间：2013/8/20 12:39:00
--  
If Forms("信息收录").Opened Then
Dim doc As PrintDoc = Forms("信息收录").GernatePrintDoc()
doc.Print()
End If