……Dim rt1 As New prt.RenderText '定义一个文本对象
rt1.X = "Parent.left + 5"
rt1.Y = "Parent.Top + 5"
rt1.Width = "Parent.Width -10" '对象宽度等于页面宽度
rt1.Height = "Parent.Height - 10" '对象高度等于页面高度
rt1.Style.Borders.All = New prt.Linedef(0.5, Color.Black) '设置边框
doc.Body.Children.Add(rt1) '将文本对象加入到报表
doc.Preview() '预览