主题：专业报表中 如何设定某个元素显示的位置相对固定 如何导入图片在指定的位置并浮于文字上方？

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() '预览