0

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

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

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

4

1 回答 1

0

当您说 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 文件。

于 2013-08-30T10:10:12.303 回答