当有多个prt.RenderText对象时,如下对应的代码如何精简呢?Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
Dim rt1 As prt.RenderText '定义一个文本对象
Dim rt10 As prt.RenderText '定义一个文本对象
Dim s As String '定义字符变量
s = "我支部于某年某月收到某某同志的入党申请书."
s = s & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
Dim s1 As String '定义字符变量
s1 = "我支部于某年某月收到你的入党申请书."
s1 = s1 & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
rt1 = New prt.RenderText
rt1.Text = "入党申请谈话通知书"
rt1.Style.TextColor = Color.Red '字符颜色设为红色
rt1.Style.Font = New Font("宋体", 24, FontStyle.Bold) '设置字体
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt1.Style.TextIndent = 9 '首行缩进9毫米
rt1.Style.Spacing.Top = 5 '每段间隔5毫米
rt1.Style.LineSpacing = 150 '1.5倍行距
doc.Body.Children.Add(rt1) '将文本对象加入到报表
rt10 = New prt.RenderText
rt10.Text = "中共某某县某某单位第二党支部第【】号"
rt10.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt10.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt10.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt10.Style.TextIndent = 9 '首行缩进9毫米
rt10.Style.Spacing.Top = 5 '每段间隔5毫米
rt10.Style.LineSpacing= 150 '1.5倍行距
doc.Body.Children.Add(rt10) '将文本对象加入到报表
rt = New prt.RenderText
rt.Text = s '设置文本对象的内容
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt.Style.TextIndent = 9 '首行缩进9毫米
rt.Style.Spacing.Top = 5 '每段间隔5毫米
rt.Style.LineSpacing = 150 '1.5倍行距
doc.Body.Children.Add(rt) '将文本对象加入到报表
……
Dim rt07 As prt.RenderText '定义一个文本对象
rt07 = New prt.RenderText
rt07.Text = ".....................................(加盖骑缝章).................................."
rt07.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体
rt07.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt07.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt07.Style.TextIndent = 9 '首行缩进9毫米
rt07.Style.Spacing.Top = 5 '每段间隔5毫米
rt07.Style.LineSpacing= 150 '1.5倍行距
doc.Body.Children.Add(rt07) '将文本对象加入到报表
Dim rt06 As prt.RenderText '定义一个文本对象
rt06 = New prt.RenderText
rt06.Text = "入党申请谈话通知书"
rt06.Style.TextColor = Color.Red '字符颜色设为红色
rt06.Style.Font = New Font("宋体", 24, FontStyle.Bold) '设置字体
rt06.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt06.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt06.Style.TextIndent = 9 '首行缩进9毫米
rt06.Style.Spacing.Top = 5 '每段间隔5毫米
rt06.Style.LineSpacing = 150 '1.5倍行距
doc.Body.Children.Add(rt06) '将文本对象加入到报表
Dim rt05 As prt.RenderText '定义一个文本对象
rt05 = New prt.RenderText
rt05.Text = "中共某某县某某单位第二党支部第【】号"
rt05.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt05.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt05.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt05.Style.TextIndent = 9 '首行缩进9毫米
rt05.Style.Spacing.Top = 5 '每段间隔5毫米
rt05.Style.LineSpacing= 150 '1.5倍行距
doc.Body.Children.Add(rt05) '将文本对象加入到报表
……
Dim rt03 As prt.RenderText '定义一个文本对象
rt03 = New prt.RenderText
rt03.Text = " 年 月 日"
rt03.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
rt03.Style.TextAlignHorz = prt.AlignHorzEnum.right '水平居中
rt03.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt03.Style.TextIndent = 9 '首行缩进9毫米
rt03.Style.Spacing.Top = 5 '每段间隔5毫米
rt03.Style.LineSpacing= 150 '1.5倍行距
doc.Body.Children.Add(rt03) '将文本对象加入到报表
'……
doc.Preview() '预览