点击下载此附件

代   码:

Private Sub 导出_Click()
DoCmd.OutputTo acOutputReport, "报表1", acFormatPDF, "客户.pdf", True
'DoCmd.OutputTo acOutputReport, "报表1", acFormatPDF, "客户.pdf", True, "F:\"  '带路径的
End Sub

图   示: