Vba MS Access:将报告另存为PDF的命令按钮
我尝试为Access中的按钮创建代码,该按钮打开“另存为”对话框,以使用预定义的文件名保存报告,并使用过滤器将其保存为PDF文件类型,用户可以在其中手动选择所需的文件夹 我还使用下面的代码创建了一个不同的按钮,将其保存为Excel文件类型,这是可行的,但我无法将其用于PDF 你们能帮帮我吗。谢谢Vba MS Access:将报告另存为PDF的命令按钮,vba,ms-access,pdf,save,Vba,Ms Access,Pdf,Save,我尝试为Access中的按钮创建代码,该按钮打开“另存为”对话框,以使用预定义的文件名保存报告,并使用过滤器将其保存为PDF文件类型,用户可以在其中手动选择所需的文件夹 我还使用下面的代码创建了一个不同的按钮,将其保存为Excel文件类型,这是可行的,但我无法将其用于PDF 你们能帮帮我吗。谢谢 Private Sub PrintButton_Click() CurrentTime = Format(Now(), "DD_MM_YYYY hh:mm") cmdlgOpen
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”替换为您正在使用的报告的名称
文件: