以下是引用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()
1.出现如图的错误怎么解决，这应该是打印窗体中的line控件引起的
2.打印的次数怎么修改
3.table控件设置了最大打印行后也会有错误，怎么解决
此主题相关图片如下：搜狗截图121224_1.png
[此贴子已经被作者于2012-12-24 20:41:50编辑过]
加好友 
发短信
Post By：2012/12/24 20:34:00 [只看该作者]
