【Access窗体导出PDF】给Access窗体按单条数据导出到PDF文档的示例；如何将当前记录报表直接导出为PDF文件？

时　间:2024-04-07 09:29:33
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:如何导出当前窗体页的数据到一页的PDF？
正　文:

一、学友问题描述：
爱好者:厦门--宵伽(974692176)  15:55:11
求助：想咨询一下access的问题，access导出pdf，输入了网站上这篇文章里面的这段代码，但导出的数据为表中所有的记录，能不能只导出第一页呀？或者导出的是当前窗体页的数据到一页的PDF？
Access报表导出为PDF代码,Access窗体导出为PDF代码；Access报表导出PDF方法【Access软件网】
http://www.accessoft.com/article-show.asp?id=17312

二、解决方法：
      使用以下代码可以实现只导出当前记录到PDF文档：
Private Sub Command59_Click()
    Me.Filter = "ID=" & Me.ID
    Me.FilterOn = True
    '纵向参数如下
    Forms("窗体名称").Printer.Orientation = 1
    '将窗体导出为PDF代码
    DoCmd.OutputTo acOutputForm, "窗体名称", acFormatPDF, , True
    DoCmd.Close acForm, "窗体名称"
End Sub

附   件:
点击下载此附件

图   示:

导出单页PDF效果:

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店