本文以具體示例的形式演示了如何為DevExpress XtraReports報(bào)表添加水印。在為報(bào)表添加文本水印時(shí)會(huì)用到SetTextWatermark方法,而SetPictureWatermark方法則是在為報(bào)表添加圖片水印時(shí)使用。

C#
using System.Drawing;
using DevExpress.XtraPrinting.Drawing;
using DevExpress.XtraReports.UI;
// ...

public void SetTextWatermark(XtraReport report){
// Adjust text watermark settings.
report.Watermark.Text = "CUSTOM WATERMARK TEXT";
report.Watermark.TextDirection = DirectionMode.ForwardDiagonal;
report.Watermark.Font = new Font(report.Watermark.Font.FontFamily, 40);
report.Watermark.ForeColor = Color.DodgerBlue;
report.Watermark.TextTransparency = 150;
report.Watermark.ShowBehind = false;
report.Watermark.PageRange = "1,3-5";
}

public void SetPictureWatermark(XtraReport report){
// Adjust image watermark settings.
report.Watermark.Image = Bitmap.FromFile("watermark.gif");
report.Watermark.ImageAlign = ContentAlignment.TopCenter;
report.Watermark.ImageTiling = false;
report.Watermark.ImageViewMode = ImageViewMode.Stretch;
report.Watermark.ImageTransparency = 150;
report.Watermark.ShowBehind = true;
report.Watermark.PageRange = "2,4";
}

VB
Imports System.Drawing
Imports DevExpress.XtraPrinting.Drawing
Imports DevExpress.XtraReports.UI
' ...

Sub SetTextWatermark(report As XtraReport)
' Adjust text watermark settings.
report.Watermark.Text = "CUSTOM WATERMARK TEXT"
report.Watermark.TextDirection = DirectionMode.ForwardDiagonal
report.Watermark.Font = New Font(report.Watermark.Font.FontFamily, 40)
report.Watermark.ForeColor = Color.DodgerBlue
report.Watermark.Transparency = 150
report.Watermark.TextTransparency = 150
report.Watermark.ShowBehind = False
report.Watermark.PageRange = "1,3-5"
End Sub

Public Sub SetPictureWatermark(report As XtraReport)
' Adjust image watermark settings.
report.Watermark.Image = Bitmap.FromFile("watermark.gif")
report.Watermark.ImageAlign = ContentAlignment.TopCenter
report.Watermark.ImageTiling = False
report.Watermark.ImageViewMode = ImageViewMode.Stretch
report.Watermark.ImageTransparency = 150
report.Watermark.ShowBehind = True
report.Watermark.PageRange = "2,4"
End Sub