Ms access 如何将报表拆分为多个PDF文件

假设我在Access 2010中有一份100页的报告，其中包括姓名列表（以及一些其他详细信息），由名为

NOM_RITIRO

的变量分组

我想将报告输出到不同的PDF文件中，每个用于分组的变量值对应一个文件

我试图弄明白如何让这段代码工作：

Sub SplitPdf()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Source As String
Dim SQL As String
Dim MyPath As String
Dim MyFilename As String
MyPath = "D:\Folder\"        

Set db = CurrentDb
SQL = "Select NOM_RITIRO From QueryNominativi Group By NOM_RITIRO"
Set rs = db.OpenRecordset(SQL)    

While Not rs.EOF
    MyFilename = "TK_" & rs!NOM_RITIRO & ".pdf"  
    ' Apply quotes as NOM_RITIRO is a string.
    DoCmd.OpenReport "ElenchiNominativi", acViewPreview, , "NOM_RITIRO = '" & rs!NOM_RITIRO.Value & "'"
    DoCmd.OutputTo acOutputReport, , acFormatPDF, MyPath & MyFilename, False
    DoCmd.Close acReport, "ElenchiNominativi"
    rs.MoveNext
Wend

rs.Close

Set rs = Nothing
Set db = Nothing

End Sub

当我试图运行

DoCmd.OpenReport

时，我被卡住了。 如果记录集未传递任何数据，则会出现“输入参数值”消息框

---

知道我做错了什么吗？

如果报告的recordsource中没有名为“ElenchiNominativi”（或拼写错误）的字段，则会提示您输入参数值

---

类似地，如果报表的recordsource是一个查询，其中包含一个未在任何表中引用的字段名，则您也将得到此提示

如果NOM_RITIRO不是报告记录源中名为“ElenchiNominativi”（或拼写错误）的字段，则它将提示您输入参数值

---

类似地，如果报表的recordsource是一个查询，其中包含一个未在任何表中引用的字段名，则您也将得到此提示

假设总有机会。展示你自己为解决问题所做的努力，并指出问题所在。将解决方案作为编辑添加到你的问题中。@Gustav:对不起，这不是处理封闭问题的方法。它已被提名重新开放；如果有足够多的人同意，你就可以发布你的答案了。好吧，但这看起来像是对提问者的欺骗。只有@Jeeped留下了一张便条，这是你至少可以也应该做的，而且没有一位亲密的选民拥有access女士的徽章。而且，这个问题非常清楚。此外，投票结束的标准是：可能的答案太多，或者好的答案太长，这两种格式都失败了，这表明投票结束的选民对Access中的报告了解甚少。抱歉，伙计们，这是我的错，问题太模糊了。我会尝试更好地解释我张贴的代码让我们说，总是有机会。展示你自己为解决问题所做的努力，并指出问题所在。将解决方案作为编辑添加到你的问题中。@Gustav:对不起，这不是处理封闭问题的方法。它已被提名重新开放；如果有足够多的人同意，你就可以发布你的答案了。好吧，但这看起来像是对提问者的欺骗。只有@Jeeped留下了一张便条，这是你至少可以也应该做的，而且没有一位亲密的选民拥有access女士的徽章。而且，这个问题非常清楚。此外，投票结束的标准是：可能的答案太多，或者好的答案太长，这两种格式都失败了，这表明投票结束的选民对Access中的报告了解甚少。抱歉，伙计们，这是我的错，问题太模糊了。我会尽量解释我更好地张贴代码