[Excel VBA] 印刷時の余白、ヘッダー、フッター等を設定する。
公開日:
:
最終更新日:2015/07/15
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Excel VBA
動作確認環境
Windows7
Excel: 2007、2013
説明
余白、ヘッダー、フッター等を設定する。
サンプルコード1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Option Explicit Sub Test() With Worksheets("Sheet1").PageSetup .Orientation = xlLandscape '用紙の向きを設定する .Zoom = 40 '印刷するときの拡大率、縮小率を設定する .FitToPagesTall = False '次のページ数に合わせて印刷の"縦"を調整する .FitToPagesWide = 1 '次のページ数に合わせて印刷の"横"を調整する ' .HeaderMargin = Application.CentimetersToPoints(2) 'ヘッダー余白を調整します。 .TopMargin = Application.CentimetersToPoints(2) '左側余白を調整します。 .LeftMargin = Application.CentimetersToPoints(2) '左側余白を調整します。 .RightMargin = Application.CentimetersToPoints(2) '右側余白を調整します。 .BottomMargin = Application.CentimetersToPoints(2) '下側余白を調整します。 .FooterMargin = Application.CentimetersToPoints(2) 'フッター余白を調整します。 ' .CenterHorizontally = True '"ページ中央"の水平方向を設定する .CenterVertically = True '"ページ中央"の垂直方向を設定する ' .CenterHeader = "&18中央ヘッダー" .LeftHeader = "左ヘッダー" .RightHeader = "右ヘッダー" .CenterFooter = "中央フッター " .LeftFooter = "左フッター &F and &A" .RightFooter = "右フッター &P/&Nページ" ' .PrintTitleRows = "$4:$5" 'プリントタイトル行を設定する .PrintTitleColumns = "$A:$A" 'プリントタイトル列を設定する End With End Sub |
.Orientation
・xlLandscape : 用紙横向き
・xlPortrait : 用紙縦向き
.Zoom
・False : 設定なし
・10 ~ 400 (%)
※ .Zoomプロパティに値を入れると、FitToPagesTallプロパティ、FitToPagesWideプロパティは無効になる。
.FitToPagesTallプロパティ、.FitToPagesWideプロパティ
・False : 設定なし
・数字
.HeaderMargin ・・・
Application.CentimetersToPoints(2)
CentimetersToPointsでセンチをポイントに変換する「()」括弧内の数値の単位はセンチメートル
.CenterHorizontally / .CenterVertically
・True : ページ中央の水平/垂直方向を設定する
・False : 設定なし
“&18中央ヘッダー”・・・
文字の大きさを指定する時は、『”&18中央ヘッダー”』のように文字の前に&数値を記入する。
&F : ファイル名を記入する
&A : シート名を記入する
&P : ページ番号を記入する
&N : 総ページ数を記入する
PrintTitleRows、.PrintTitleColumns
.PrintTitleRows : プリントタイトル行を設定する
.PrintTitleColumns : プリントタイトル列を設定する
広告
関連記事
-
-
実行中のマクロを中断する – Excel VBA
動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause
-
-
[Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-
動作確認環境 Windows7 Excel: 2007、2013 説明 ウィンドウに表示
-
-
動的配列と固定配列 – Excel VBA
動作確認環境 Windows7 Excel: 2007 構文 N/A サンプルコー
-
-
[Excel VBA] セルの検索(Range.Findメソッド)
動作確認環境 Windows7 Excel: 2007 構文 ・検索範囲の
-
-
[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア
-
-
[Excal VBA] セルやセル範囲を選択する – Range.Select メソッド-
動作確認環境 Windows7 Excel: 2007 説明 セルやセル範囲を選択します
-
-
[Excal VBA] オートフィルターを使ってリストにフィルターをかけます。 – Range.AutoFilter メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 オートフィルタ
-
-
[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド
動作確認環境 Windows7 Excel: 2007 構文 式: Appl
-
-
[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA
動作確認環境 Windows7 Excel: 2007 構文 対象範囲: Rang