打印预览报表时直接导出为pdf文件的vba代码

时　间:2013-04-30 08:51:10
作　者:金宇   ID：43  城市：江阴
摘　要:打印预览报表时直接导出为pdf文件的vba代码
正　文:

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

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