Access報表導出為橫向PDF代碼，Access窗體導出為橫向PDF代碼；Access報表導出為縱向PDF代碼，Access窗體導出為縱向PDF代碼

時　間:2022-12-28 09:46:54
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要: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交流群 (群號:321554481) 　　　　　　Access源碼網店