主题：怎么能在同一张纸上打印两份同样的窗口画面呢？

 其实，是可以的，遍历复制Doc的所有对象，贴一段通用代码。

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ls_Obj As New List(Of Object)
For Each c As Object In Doc.Body.Children
    Dim o As Object = c.clone()
    o.y = o.y.Value + 80   '没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
    ls_Obj.Add(o)
Next

For Each o As Object In ls_Obj
    Doc.body.Children.Add(o)
Next

doc.Preview()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

横向打印的话，就调整对象的横坐标。

比如 o.x = o.x + 100