通过运行参数列表打开、打印和关闭报表
通过运行参数列表打开、打印和关闭报表
提问于 2013-08-29 23:50:05
我有一个订单报表，它使用订单参考号从查询中提取，当批量处理订单时，我必须按shift-f9组合键以使用新编号刷新查询并打印到pdf。有没有办法使用宏或VBA来输入一个列表或一组参数。
假设我想拉出并打印订单1-100。我如何才能指示access为我执行此操作，而不是手动刷新报表一百次并打印？加分如果我可以设置参数来填写PDF的标题…
如果这是一个简单的问题，很抱歉。我试着用谷歌搜索它，但我不认为我使用了正确的术语。
回答 1
Stack Overflow用户
发布于 2013-08-30 18:10:12
当你说PDF的标题时，我想你指的是文件名？因为您没有提到用于报告的任何title参数的名称。
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的参数的名称。然后，您应该获得名为title_orderNo.pdf的.pdf文件，其订单号从firstRec到lastRec。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18515546
复制相关文章
相似问题
腾讯云开发者
