通过运行参数列表打开、打印和关闭报告答案

【问题标题】：Open, print and close report by running through list of parameters通过运行参数列表打开、打印和关闭报告
【发布时间】：2013-09-02 03:48:12
【问题描述】：

我有一个使用订单参考号从查询中提取的订单报表，在批量下订单时，我必须按 shift-f9 以使用新编号刷新查询并打印为 pdf。是否有任何方式宏或 VBA 来输入列表或最好是一组参数。

假设我想提取并打印订单 1-100。与其手动刷新报告一百次并打印，我如何指示访问权限为我执行此操作？如果我可以设置参数以填写 PDF 的标题，则可以加分...

抱歉，这是一个简单的问题。我尝试用谷歌搜索它，但我认为我使用的术语不正确。

【问题讨论】：

在发布现有代码并提出相关问题时，您将获得更多帮助。
@enderland 我实际上没有任何代码。我什至不知道从哪里开始使用 VBA/宏。很抱歉。

标签： vba ms-access

【解决方案1】：

当您说 PDF 的标题时，我假设您是指文件名？由于您没有提及用于报告的任何标题参数的名称。

Sub printPDF(firstRec As Integer, lastRec As Integer, rptTitle As String)
Dim recCount As Integer
recCount = firstRec
Do Until recCount = lastRec
    DoCmd.SetParameter "[paramName]", recCount
    DoCmd.OutputTo acOutputReport, "[reportName]", acFormatPDF, CurrentProject.Path & "\" & rptTitle & "_" & recCount & ".pdf", False
    recCount = recCount + 1
Loop
End Sub

将 [reportName] 更改为您的报告名称，并将 [paramName] 更改为您（可能）为记录 ID 传递的参数的名称。然后，您应该为从 firstRec 到 lastRec 的订单号获取名为 [title]_[orderNo].pdf 的 .pdf 文件。

【讨论】：

是的，文件名对不起。我会试试这个代码，让你知道它是否有效。看起来很有希望。