参考:http://www.foxtable.com/webhelp/scr/1173.htm
rt = New prt.RenderText
rt.Text = "姓名:[Fields!姓名.Value]"
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold)
ra.Children.Add(rt) '添加到容器中
rt = New prt.RenderText
rt.Text = "部门:[Fields!部门.Value]"
rt.Style.Font = New Font("宋体", 18, FontStyle.Bold)
ra.Children.Add(rt) '添加到容器中
rt = New prt.RenderText
rt.Text = "职务:[Fields!职务.Value]"
rt.Style.Font = New Font("微软雅黑", 20, FontStyle.Bold)
ra.Children.Add(rt) '添加到容器中