[求助]不急，专业报表水印，如何设置在图片之上？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

今天值班，无事看看，专业报表的水印，被图片遮住了，如何设置在图片之上？

此主题相关图片如下：专业报表.png

Dim s As String = "d:\test.jpg"

Dim doc As New PrintDoc '定义一个报表

Dim rm As New prt.RenderImage '定义一个图片对象

rm.Image = getImage(s)

rm.Width = "100%Parent" '设置图片尺寸为容器(页面)尺寸

rm.Height = "100%Parent"

rm.Style.ImageAlign.KeepAspectRatio = True ' 保持图片原始纵横比例

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示

doc.Body.Children.Add(rm) '将图片对象加入报表

''''''=====设置水印========

Dim rt As prt.RenderText '定义一个文本对象

rt = New prt.RenderText '设置文本对象的内容

rt.Text = "Hello FoxTable" '设置文本内容

rt.Width = "Parent.Width" '宽度等于页面宽度

rt.Style.TextAngle = 45 '旋转45度

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐

rt.Style.TextAlignVert = prt.AlignVertEnum.Bottom '垂直下对齐

rt.Style.Font = New font("方正行楷_GBK",20)

rt.Style.TextColor = Color.Crimson ' LightGray '文本颜色为浅灰色

Doc.WaterMark = rt '作为水

doc.Preview() '预览

主题：[求助]不急，专业报表 水印，如何设置在图片之上？