Office 365 Access中使用DoCmd.SendObject时如何让报表标题含字段值？

问题核心是：DoCmd.SendObject 在发送报表时，并不会触发报表的 Load 事件——它直接基于报表的设计定义生成输出文件，跳过了界面加载环节，所以你在 Load 事件里设置的动态标题不会生效。

给你两个可行的解决办法：

方法一：先隐藏打开报表触发Load事件，再发送 #

先以隐藏模式打开报表，让 Load 事件执行完成（标题已更新），再调用 SendObject，最后关闭报表。代码示例：

' 替换成你的报表名称
Dim reportName As String
reportName = "你的报表名称"

' 隐藏打开报表，触发Load事件更新标题
DoCmd.OpenReport reportName, acViewPreview, , , acHidden

' 执行邮件发送
DoCmd.SendObject _
    ObjectType:=acSendReport, _
    ObjectName:=reportName, _
    OutputFormat:=acFormatPDF, ' 可根据需求换成acFormatXPS等格式
    To:="收件人邮箱@xx.com", _
    Subject:="自定义邮件主题", _
    MessageText:="邮件正文内容"

' 关闭报表
DoCmd.Close acReport, reportName

方法二：直接在发送前修改报表Caption属性 #

如果你的报表是基于单条记录，或者能提前获取到需要的字段值，可以直接修改报表的 Caption 属性，不用依赖 Load 事件：

Dim reportName As String
reportName = "你的报表名称"
Dim rs As Recordset

' 替换成你的数据源查询，确保能拿到对应的OrdNo和SalesDate
Set rs = CurrentDb.OpenRecordset("SELECT OrdNo, SalesDate FROM 订单表 WHERE 订单ID = 123")

If Not rs.EOF Then
    ' 先隐藏打开报表（确保报表实例加载）
    DoCmd.OpenReport reportName, acViewPreview, , , acHidden
    ' 直接设置标题
    Reports(reportName).Caption = rs!OrdNo & " - " & rs!SalesDate
End If

' 发送报表
DoCmd.SendObject acSendReport, reportName, acFormatPDF, "收件人邮箱@xx.com"

' 清理资源
rs.Close
Set rs = Nothing
DoCmd.Close acReport, reportName

注意事项 #

• 如果是多记录报表，Load 事件里的 Me.OrdNo 只会取第一条记录的值，这种情况建议调整标题逻辑（比如用报表名称+日期）。
• 发送前务必确保报表的过滤条件正确，避免发送错误记录的报表。

内容的提问来源于stack exchange，提问作者aitpeter