有一网友问在点击了打印预览按钮后能否直接导出为pdf文件的vba代码。经测试，可以参考以下代码。
On Error Resume Next
DoCmd.OpenReport "R_报价单", acViewPreview, , "报价单编号 ='" & Me.报价单编号 & "'"  '预览对应编号的报价单报表
DoCmd.OutputTo acOutputReport, "R_报价单", acFormatPDF, , True                               '导出为pdf报价单
DoCmd.Close acReport, "R_报价单"                                                                              '关闭报表

注：只适合Access2007、Access2010及以上的版本。