如何解决MS Access：将报告另存为 PDF 的命令按钮
我尝试为 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
解决方法
您的代码获取文件名。要将报告输出为 PDF，请使用以下命令：
DoCmd.OutputTo acOutputReport,"ReportName",acFormatPDF,filename
将“ReportName”替换为您正在使用的报告的名称。
文档：https://docs.microsoft.com/en-us/office/vba/api/Access.DoCmd.OutputTo
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
