Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "天天向上软件有限公司" '设置文本对象的内容
rt.Style.Font = New Font("宋体", 18, FontStyle.Bold) '设置字体
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Spacing.Bottom = 3 '设置下间隔为3毫米
ra.Children.Add(rt)
'````````````````````````````````````````````````````
Dim rt1 As New prt.RenderText '定义一个文本对象
rt1.Text = "计划表" '设置文本对象的内容
rt1.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.Spacing.Bottom = 3 '设置下间隔为3毫米
ra.Children.Add(rt1)
Doc.PageHeader = ra
doc.Preview() '预览