向 Access 报告页面添加水印答案

【问题标题】：Adding watermark to a Access report page向 Access 报告页面添加水印
【发布时间】：2015-04-25 04:48:36
【问题描述】：

我正在尝试使用“图片”属性向 Access 报告添加水印，但遇到了问题。以下代码有效，并且在预览和打印报告时显示/打印图像，但在直接从宏打印报告时不起作用（屏幕上不可见）。 “GrandTotal”是报表上的绑定文本框，它是记录源中字段的总和。如果有任何建议可以从打印预览和打印宏中打印水印，我将不胜感激。

Private Sub Report_Load
' put up the watermark if needed

    If GrandTotal.Value < 2000 Then
        Me.Picture = <<picture file name including full path>>
    End If
End Sub

【问题讨论】：

执行报表的宏是什么，如何调用？
它是一个标准的 Access 宏，具有以下设置：OpenReport，报表名称：DetailPrint，视图：打印，窗口模式：正常。没有过滤器名称或 Where 条件。打印而不显示报告是理想的操作。
并且您在Open 和Load 事件中设置了断点，当您使用宏打开报表时它们没有被命中？
当通过宏打印报告时，我有，也没有触发。我还尝试将 'cTrash = InputBox("Firing", "Trash")' 添加到上述代码中，而不是使用断点。在未从宏预览的情况下打印报表时，它也不会出现。需要注意的是，在预览和打印报表时，我无法为此使用 Open ，因为尚未为绑定控件分配值。这就是我使用 Load 事件的原因。另一个注意事项，如果我将 OpenReport 命令的 view 参数更改为 Report，就会出现水印。

标签： ms-access vba ms-access-2010

【解决方案1】：

由于您在打印报表时从未将其呈现到屏幕上，因此打开/加载事件永远不会被触发，因为它们从未被使用过。另一种方法是在打印预览中打开报告并使用OpenArgs 表示您要打印它

Private Sub SomeButton_Click()
    DoCmd.OpenReport "DetailView", acViewPreview, , , acHidden, "Print"
End Sub

然后做你正常的加载工作

Private Sub Report_Load
' put up the watermark if needed

    If GrandTotal.Value < 2000 Then
        Me.Picture = <<picture file name including full path>>
    End If
End Sub

加载完成后，您的表单将激活，此时您可以打印

Private Sub Report_Activate()
    If Me.OpenArgs = "Print" Then
        On Error GoTo ErrorHandler

        DoCmd.OpenReport "Report1", acViewPreview
        'Opens print dialog for current screen (report in this case):
        DoCmd.RunCommand acCmdPrint
    End If
    DoCmd.Close
ErrorHandler:
    If Err.Number <> 0 And Err.Number <> 2501 Then
        MsgBox "Error: " & Err.Number & vbNewLine & Err.Description
        Exit Sub
    End If
End Sub

该表单从未显示，因此看起来您之前已对其进行了设置，但加载/打开事件将正常触发，因为实际呈现了报表。

【讨论】：

谢谢@Brad - 太好了。我会说我唯一改变的是在子 Report_Activate() 中用 acCmdQuickPrint 替换 acCmdPrint。这样，报告打印到默认打印机而不显示打印机对话框。