印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）
PageSetup.Orientation プロパティ
PageSetup.Orientation プロパティで、印刷する用紙の向きを設定することができます。値の取得および設定が可能で、XlPageOrientation 列挙型 の定数を使用します。
【書式】
＜取得＞
object.PageSetup.Orientation
＜設定＞
object.PageSetup.Orientation = const
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- const ・・・ 印刷用紙の向きが縦か横を表す XlPageOrientation 列挙型 の定数またはその値を指定します。
定数 値 内容 xlPortrait 1 用紙の向きを縦に設定 xlLandscape 2 用紙の向きを横に設定
PageSetup.Orientation プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_Orientation() Dim w As Worksheet Set w = ActiveSheet '用紙の向きを横向きに設定 w.PageSetup.Orientation = xlLandscape '印刷プレビューを表示 w.PrintPreview End Sub |
実行結果
関連記事
-
-
印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
アクティブプリンタを変更（ActivePrinter プロパティ）
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
ワークシートを参照する（Worksheets プロパティ）
Worksheets プロパティ Worksheets プロパティは、Works …
-
-
ワークシートをアクティブにする・選択する（Activate, Select）
Activate メソッド・Select メソッド Activate メソッドは …
-
-
ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage
偶数ページに別のヘッダーおよびフッターを設定 偶数ページのヘッダーおよびフッター …
-
-
アウトライン記号の表示・非表示（DisplayOutline プロパティ）
アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …
-
-
ブックを開く（Open メソッド）
ブックを開く（Open メソッド） ブックを開くには、Workbooks コレク …
-
-
ブックの変更が保存されているかを確認する（Saved プロパティ）
ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …
-
-
ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）
PageSetup.FitToPagesTall プロパティ PageSetup …