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

打印要横向打印，左右各一份。 两份的内容完全相同。如果表头可以改成 客户用，保管用，更好

窗口的名字为“窗口2” 请各位大侠指点啊！！

没有办法，用专业报表吧

 其实，是可以的，遍历复制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

非常好用，收藏