MS Access:将报告另存为 PDF 的命令按钮

Posted

技术标签:

【中文标题】MS Access:将报告另存为 PDF 的命令按钮【英文标题】:MS Access: Command button to save as a report as PDF 【发布时间】:2021-01-05 19:43:06 【问题描述】:

我尝试为 Access 中的按钮创建一个代码,该按钮打开“另存为”对话框,以使用预定义的文件名和过滤器将报告保存为 PDF 文件类型,用户可以在其中手动选择所需的文件夹。

我还在下面的代码中使用了一个不同的按钮,将其保存为 Excel 文件类型,它可以工作,但我不让它适用于 PDF。

你们能帮帮我吗?谢谢。

Private Sub PrintButton_Click()

CurrentTime = Format(Now(), "DD_MM_YYYY hh:mm")

cmdlgOpenFile.filename = "Stock overview " & MonthMFiling & " " & YearMFiling & " " & CurrentTime & ".pdf"
cmdlgOpenFile.Filter = "PDF Files (*.pdf)|*.pdf"
cmdlgOpenFile.FilterIndex = clngFilterIndexAll
cmdlgOpenFile.DialogTitle = "Save Report As"
'this is where the dialog opens
cmdlgOpenFile.ShowSave

'returns your full file name.
filename = cmdlgOpenFile.filename

End Sub

【问题讨论】:

【参考方案1】:

您的代码获取文件名。要将报告输出为 PDF,请使用以下命令:

DoCmd.OutputTo acOutputReport, "ReportName", acFormatPDF, filename 

将“ReportName”替换为您正在使用的报告的名称。

文档:https://docs.microsoft.com/en-us/office/vba/api/Access.DoCmd.OutputTo

【讨论】:

以上是关于MS Access:将报告另存为 PDF 的命令按钮的主要内容,如果未能解决你的问题,请参考以下文章

VBA MS 项目将多个自定义报告以 PDF 格式保存到位置

在 MS Word 2010 中另存为的键盘快捷键

MS Access 将报告导出为 pdf

根据2个单元格值将excel发票另存为xlsm和pdf,然后打印...一个解决方案

VBA 另存为 PDF 文件名作为单元格值

如何以格式化 ID 值作为报告名称将 MS Access 报告导出为 PDF?