2017-09-01 9 views
-1

私はこのコードを使用してAccessフォームからPDFファイルを作成するために使用:Vba AccessのExcelファイルから横向きのPDFを作成するにはどうすればよいですか?

DoCmd.OutputTo acOutputForm,"FR_PFMEAPrint2", acFormatPDF,"PFMEAPrint2.PDF", True 

と、私はこのコードを使用してAccessで縦向きとExcelformsを印刷:

Excel_App.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 

や風景のために、私はこのコードを使用アクセス:

Forms("FR_Print").Printer.Orientation = acPRORLandscape 
DoCmd.PrintOut acPages, 1, 1, , 1 

が、私はVBAのアクセス感謝を経由してPDFのランドスケープ形式に出力Excelファイルに必要

それは次のようになりますあなたのケースに関連する

Sheets(1).PageSetup.Orientation = xlLandscape 

Excel_App.ActiveWindow.SelectedSheets(1).PageSetup.Orientation = xlLandscape 

たり、反復処理することができますが、以下のサンプルコードに示すようなエクセルSheetオブジェクトのプロパティを設定する必要が

+0

[excel-vba]タグを追加しました。タグを頻繁に使用する人は、Excelコマンドを実行するために必要な知識が最も豊富です。 – YowE3K

答えて

0

複数のSheetsを入力し、プロパティをループに設定します。また、FYI:基礎となるxlLandscapeの値を2とすることができます。

希望します。

+0

ありがとう、しかし、私はどのようにVBA AccessでこのExcelファイルからPDF出力を作成しますか? – ali

+0

肖像画設定を使用してPDFファイルに印刷することができたと思われるので、Excelオブジェクトlibへの参照をすでに作成していると仮定します(そうでなければ、その参照を追加する必要があります)。私が提供したソリューションに基づいてランドスケープ設定で印刷することができるはずです。私はこの質問に回答したことに感謝します(答えはあなたにはっきりと示されています)。よろしくお願いします。 –

+0

Alex、以前はアクセスフォームからPDFを作成しましたが、今はAccessのExcelフォームからPDFを作成したいので、そのコードが必要です。 – ali