以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]可以打印整个窗体包括容器的方法么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83120)
--  作者：hotday1972
--  发布时间：2016/3/31 19:19:00
--  [求助]可以打印整个窗体包括容器的方法么？
如题
--  作者：大红袍
--  发布时间：2016/3/31 20:00:00
--  

 只能打印窗口，或者某个容器，不同容器的无法一起打印。

 

 如果是对窗口截图，可以写代码

 

Sendkeys.Send("%{PRTSC}")
Application.Doevents
Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = ClipBoard.GetImage
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview() \'预览