Access报表导出为横向PDF代码，Access窗体导出为横向PDF代码；Access报表导出为纵向PDF代码，Access窗体导出为纵向PDF代码

时　间:2022-12-28 09:46:54
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:Access报表导出为横向PDF代码，Access窗体导出为横向PDF代码；Access报表导出为纵向PDF代码，Access窗体导出为纵向PDF代码。
正　文:

一、学友问题描述：
爱好者:北京--心若菩提30723077 08:04:04
老师，请问下access报表如何导出为横版PDF文件？
每次导出都为多页竖版，我想控制一下导出的报表为PDF横向与纵向的文件，有没有什么代码或者参数可以设置？

二、解决方法：
这个功能有一定的代表性，给你整理成示例，发网站上其他Access朋友也可以一起一下。

1.Access报表导出为纵向PDF代码:
    DoCmd.OpenReport "报表名称", acViewPreview
    '纵向参数如下
    Reports("报表名称").Printer.Orientation = 1
    '将报表导出为PDF代码
    DoCmd.OutputTo acOutputReport, "报表名称", acFormatPDF, , True
    DoCmd.Close acReport, "报表名称"

2.Access报表导出为横向PDF代码:
    DoCmd.OpenReport "报表名称", acViewPreview
    '横向参数如下
    Reports("装备报表").Printer.Orientation = 2
    '将报表导出为PDF代码
    DoCmd.OutputTo acOutputReport, "报表名称", acFormatPDF, , True
    DoCmd.Close acReport, "报表名称"

3.Access窗体导出为纵向PDF代码:
    DoCmd.OpenForm "窗体名称", acViewPreview
    '纵向参数如下
    Forms("窗体名称").Printer.Orientation = 1
    '将窗体导出为PDF代码
    DoCmd.OutputTo acOutputForm, "窗体名称", acFormatPDF, , True
    DoCmd.Close acForm, "窗体名称"

4.Access窗体导出为横向PDF代码:
    DoCmd.OpenForm "窗体名称", acViewPreview
    '横向参数如下
    Forms("窗体名称").Printer.Orientation = 2
    '将窗体导出为PDF代码
    DoCmd.OutputTo acOutputForm, "窗体名称", acFormatPDF, , True
    DoCmd.Close acForm, "窗体名称"


附   件:
点击下载此附件

图   示:

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