主题：窗口多次打印

 这样加减。

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 = new C1.C1Preview.Unit(CStr(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()