以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么打印窗口背景图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64312)
--  作者：cyl123
--  发布时间：2015/2/10 17:39:00
--  怎么打印窗口背景图片
怎么打印窗口背景图片
--  作者：有点甜
--  发布时间：2015/2/10 17:53:00
--  

 变通一下处理

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim Doc_new As New PrintDoc
Dim rimg As new prt.RenderImage
rimg.Image = e.Form.Image
rimg.Width = 50
rimg.height = 100
Doc_new.Body.Children.Add(rimg)

For Each c As object In Doc.Body.Children
    Dim nc = c.clone
    Doc_new.body.Children.Add(nc)
Next

Doc_new.Preview()