主题：怎么打印窗口背景图片

 变通一下处理

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()