如下代码
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As New PrintDoc '定义一个报表
Dim idx As Integer = 1
For Each o As object In Doc.Body.Children
Dim obj = o.clone
ndoc.Body.Children.Add(obj)
If idx = 2 Then
'obj.BreakAfter = prt.BreakEnum.page
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.X = 100
rt.Y = 100
ndoc.Body.Children.Add(rt) '将文本对象加入到报表
End If
idx += 1
Next
ndoc.Preview()
[此贴子已经被作者于2013-11-26 22:46:24编辑过]
加好友 
发短信
Post By：2013/11/26 22:46:00 [显示全部帖子]
