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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表中的水印如何设置在最顶端？

共有2839人关注过本帖树形打印复制链接主题：专业报表中的水印如何设置在最顶端？

scofields

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

专业报表中的水印如何设置在最顶端？ 发帖心情

Post By：2020/3/10 11:30:00 [只看该作者]

专业报表中的水印如何设置在最顶端？好像找不到相应的属性设置？

Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
Dim s As String '定义字符变量
'设置水印
rt = New prt.RenderText '设置文本对象的内容
rt.Text = "Foxtable" '设置文本内容
rt.Width = "Parent.Width" '宽度等于页面宽度
rt.Height = "Parent.Height" '高度等于页面高度
rt.Style.TextAngle = 45 '旋转45度
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
rt.Style.FontSize = 72 '字体大小为8磅
rt.Style.TextColor = Color.Gray '文本颜色为灰色
Doc.WaterMark = rt '作为水印使用
doc.Preview() '预览