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

Question

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

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

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

Answer 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 文件。