主题：准考证打印的最后三个细节问题没解决！

        Dim rm As New prt.RenderImage '定义一个图片对象
        rm.Image = GetImage("d:\001.ico") '设置图片
        rm.y = 10
        rm.x = 0
        ra.Children.Add(rm) '将图片对象加入
        If getConfigValue("启用水印",True) = True
            s = Nothing
            Dim wra As new prt.RenderArea
            rx = New prt.RenderText '设置文本对象的内容
            For i As Integer = 1 To e.Form.Controls("水印数").Text
                s = s & getConfigValue("学校名称","请先选择学校名称!") & vbcrlf & vbcrlf & vbcrlf
            Next
           
            s = s & "&&"
            s = s .Replace(vbcrlf & vbcrlf & vbcrlf & "&&","")
            rx.Text = s '设置文本内容
            'rx.Width = "Parent.Width" '宽度等于页面宽度
            'rx.Height = "Parent.Height" '高度等于页面高度
            rx.Style.TextAngle = 30 '旋转45度
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
            rx.Style.FontSize = 20'字体大小为8磅
            rx.Style.TextColor = Color.Gray '文本颜色为灰色
            wra.y = 20
            wra.x = 0
            wra.Children.Add(rx)
            ra.Children.add(wra) '作为水印使用
        End If
        ra.Children.Add(rt) '加入到容器中
        Doc.Body.ChildRen.Add(ra) '将容器加入到报表中