在 ActiveReports 中设置水印答案

【问题标题】：Set Watermark in ActiveReports在 ActiveReports 中设置水印
【发布时间】：2017-02-20 05:09:27
【问题描述】：

我使用 ActiveReports 9 Designer 创建了一个截面报告。我需要根据标志设置水印。如果标志为 ON，则应为该特定页面设置水印。如果标志为 OFF，则水印应该是空的。

我在组标题中有标志文本框和水印图像。所以我想到了在报告脚本的 GROUPHEADER1_BeforePrint 中切换水印。

Sub GroupHeader1_BeforePrint
    if(TxtFlg.text = "1") Then
        rpt.Watermark = imgWaterMark.Image
    else
        rpt.Watermark = nothing
    End If
End Sub

我的问题是 - 第一页正在跳过，并且从下一页继续。第 1 页水印在第 2 页显示，第 2 页水印在第 3 页显示，以此类推。为什么会这样显示？

谁能帮帮我。提前致谢。

【问题讨论】：

标签： vb.net activereports

【解决方案1】：

这是设计行为。 Watermark 属性用于整个报表，并在任何其他部分呈现之前呈现。因此，当您在GroupHeader_Format 事件中设置水印时，该页面的水印已被打印，因此无法更改。因此，水印打印在下一页上。现在，为了解决您在第一页上呈现水印的问题，您可以在ReportStart 事件中设置它。对于其他页面，您必须声明一个全局变量并设置水印，记住它将在下一页打印。

【讨论】：

我不知道该怎么做。你能给我任何链接或示例代码吗？

【解决方案2】：

如果我们想根据条件在活动报告中显示水印，则报告的水印属性有点困难。相反，我们可以使用 DrawText 类似于报告上的水印。

代码如下：

Sub GroupHeader1_BeforePrint
    if(TxtFlg.text = "1") Then
        Me.rpt.CurrentPage.ForeColor = Color.FromArgb(80, 128,128,128)
        Me.rpt.CurrentPage.Font = New Font("Arial", 45F)
        Me.rpt.CurrentPage.DrawText("DRAFT", 0.489F, 5F, 8, 2)
    else
        Me.rpt.CurrentPage.ForeColor = Color.FromArgb(80, 255, 255, 255)
        Me.rpt.CurrentPage.Font = New Font("Arial", 20F)
        Me.rpt.CurrentPage.DrawText("", 1.5F, 3F, 2, 2)
    End If
End Sub

【讨论】：