以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何打印当前窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30403)
--  作者：lfxxdt
--  发布时间：2013/3/27 11:34:00
--  如何打印当前窗口
通过菜单，如何编写代码能将当前窗口打印出来。
--  作者：狐狸爸爸
--  发布时间：2013/3/27 12:14:00
--  

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()

 

参考：

http://www.foxtable.com/help/topics/1590.htm

 
--  作者：lfxxdt
--  发布时间：2013/3/27 12:58:00
--  
以上代码只能在窗口控件中可运行，但是在菜单中就运行不了。
--  作者：狐狸爸爸
--  发布时间：2013/3/27 13:05:00
--  
If Forms("窗口名").Opened Then
   Dim doc As PrintDoc = Forms("窗口名").GernatePrintDoc()
   doc.Print()
End if