Question

我有一个用户输入所有数据的表单。有一个＆＃39; Save＆＃39;按钮，保存记录，并保持表单和活动。在关闭表单之前，我需要获取新保存的记录并将相关报告输出到PDF文件。我现在的问题是PFD的输出是发送表中的所有记录，而不仅仅是表单中的记录。这是我的代码。

Private Sub cmdSave_Click()

    Dim outl As Outlook.Application
    Dim mi As Outlook.MailItem
    Dim strWhere As String

    Cause = "SaveButton"
    DoCmd.RunCommand acCmdSaveRecord
    'Save the Record
    Me.btnClose.SetFocus

    If Me.DateOfVisit <> "" Then
        Me.RepStatus = "Report Saved!"
        Me.btnNewReport.Visible = True

    'Now, print the report to a PDF File
    DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF,"C:\ReportTest.pdf", False

    End If

End Sub

作为旁注，要求用户不会在屏幕上弹出报告，然后很快消失。

感谢您的帮助。

Answer 1

看起来我终于把它弄出来了。我添加了以下几行，现在它正在运行。事实证明，OutputTo无法传递任何搜索条件。因此，我以隐藏模式打开报告，以便用户看不到任何内容，然后使用OutputTo将其发送到PDF。

'Now, print the report to a PDF File

DoCmd.OpenReport "rptReports", acViewReport, , "[ReportID] = " & [ReportID], acHidden
DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF, "C:\TG QUOTE SYSTEM\Meeting Reports\ReportTest.pdf", False
DoCmd.Close acReport, "rptReports"

结束如果

谢谢大家。

Access 2013：使用报告将表单的当前记录仅发送到PDF

1 个答案: