在打印报表时,如果需要为打印的报表设置文字水印,可以在报表主体的Format事件中进行设置
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
With Report
'设置水印字体
.FontName = "华文隶书"
'设置水印左上角坐标
.CurrentX = 6
.CurrentY = 456
'设置水印字体大小
.FontSize = 66
'水印加粗
.FontBold = True
'水印倾斜
.FontItalic = True
'水印颜色
.ForeColor = RGB(214, 214, 214)
'水印文字
.Print ("内部文件 禁止外传")
End With
End Sub