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

以下是引用lin_hailun在2012-11-28 9:33:00的发言：
 其实，是可以的，遍历复制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()

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

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

请问打印次数怎么修改