Question

我有几个访问数据库，可以用Excel或PDF导出。现在，我被告知我需要在所有出口中添加水印。但是，我不确定这是否可行。您知道如何将水印添加到另存为PDF或Excel文件的导出中吗？

我创建了导出到excel并通过电子邮件发送文件的代码。我还在excel中创建了一个插入水印的加载项。我不知道如何一起使用。

这是我用来导出到excel和电子邮件的代码：

Function ExportDailyPayoffs()
    Dim dtemnyr As String
    Dim mondt As String

    If Weekday(Date) = vbMonday Then 'Check to see if its Monday
        dtemnyr = Format(Date - 3, "mmddyy") 'We want to get the file for Friday
    Else
        dtemnyr = Format(Date - 1, "mmddyy") 'We want to get the file for Friday
    End If

    DoCmd.SendObject acSendQuery, "A1 Daily Payoffs", acFormatXLSX, "CLSS@xxxx.US", , , "Daily Payoff Report - " & dtemnyr, "Enclosed please find the Daily Payoff Report", True
End Function

我希望（水印）机密一词在失去访问权限或通过电子邮件发送给任何人时都在excel中。

Answer 1

在.pdf输出中添加水印非常简单。在设计视图中，报表具有“图片”属性。该图片可以是水印，创建为图形文件。水印位于所有文本，边框等下方，就像它是要在其上打印报告的纸张的一部分一样，但是要正确查看水印，您需要将控件的背景设置为透明。如果水印是相当不饱和的（淡色）颜色，则文本在水印上将非常可读。

在Excel输出中添加水印比较困难。我知道没有办法直接在Access中进行操作。最近，我需要做类似的事情，重新格式化Excel输出以修改列宽，让选定列的内容换行，等等。我通过编写Excel工作簿来对导出的工作簿进行重新格式化来做到这一点。导出工作簿后，立即将其导出的VBA代码打开重新格式化工作簿，该工作簿将自动执行以执行其工作，然后自行关闭。这不是解释所有细节的正确地方，但这是一般方法。

为出口添加水印

1 个答案: