0

我需要使用自定义名称保存 PDF 文件。此名称应包含报告中的参数/值。

我需要生成几个这样的报告,所以我需要一个我猜该Member_ID领域将提供的差异化。我确实在网上搜索了很多,但我无法实现任何一个。

我现在的代码如下所示:

Private Sub Create_PDF_Click()

Dim myPath As String Dim strReportName As String

DoCmd.OpenReport "Proof_Graphs", acViewPreview

myPath = "C:\Proofs\"

strReportName = Proof_Graphs.[MEMBER_ID] + "-" + ".pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True DoCmd.Close acReport, "Proof_Graphs"

End Sub

我收到一个找不到对象的错误。

4

1 回答 1

0

您可以使用 Reports!ReportName!FieldName访问报表上的值的控制框。

Private Sub Create_PDF_Click()
Dim myPath As String Dim strReportName As String
Dim memberID As String

DoCmd.OpenReport "Proof_Graphs", acViewPreview

memberID = Reports!Proof_Graphs.[MEMBER_ID]'to access the field for the value on the report

myPath = "C:\Proofs\"

strReportName = memberID +  ".pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True DoCmd.Close acReport, "Proof_Graphs"

End Sub
于 2013-04-04T09:50:13.620 回答