TOP

[Excel VBA] 印刷時の余白、ヘッダー、フッター等を設定する。

公開日： 2015/07/15 : 最終更新日：2015/07/15
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Excel VBA

動作確認環境

Windows7
Excel: 2007、2013

説明

余白、ヘッダー、フッター等を設定する。

サンプルコード1

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

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 : プリントタイトル列を設定する

Tweet

関連記事

[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA

動作確認環境 Windows7 Excel: 2007 構文対象範囲: Rang

記事を読む

[Excel VBA] セルの検索(Range.Findメソッド)

動作確認環境 Windows7 Excel: 2007 構文・検索範囲の

記事を読む

[Excal VBA] セルやセル範囲を選択する – Range.Select メソッド-

動作確認環境 Windows7 Excel: 2007 説明セルやセル範囲を選択します

記事を読む

[Excel VBA] ワークシートの変更を検知する　(Worksheet.Change イベント)

動作確認環境 Windows7 Excel: 2007 構文式:Workshee

記事を読む

[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア

記事を読む

[Excal VBA] セルに値を入れる – Range.Value プロパティ-

動作確認環境 Windows7 Excel: 2007 説明セルに値をいれます。

記事を読む

動的配列と固定配列 – Excel VBA

動作確認環境 Windows7 Excel: 2007 構文 N/A サンプルコー

記事を読む

[Excel VBA] メッセージボックスを使う

動作確認環境 Windows10 Excel: 2016 説明メッセージボックスを使う

記事を読む

[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド

動作確認環境 Windows7 Excel: 2007 構文式: Appl

記事を読む

実行中のマクロを中断する – Excel VBA

動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause

記事を読む

Message コメントをキャンセル

PREV: [Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-
NEXT: [Excel関数] HLOOKUP - 横方向(行方向)へ検索し、任意の値がみつかったらその列の値を返す。-検索/行列関数-

NEW ENTRY

: [Excel] 編集禁止になっているセルに書式設定で色を付ける。
動作確認環境 Windows10 Excel: 2016 編

: [Excel] セルを編集禁止にする。
動作確認環境 Windows10 Excel: 2016 説

: [Excel VBA] メッセージボックスを使う
動作確認環境 Windows10 Excel: 2016 説

: [Word] フィードで連番(“000, 001″などの3桁以上)番号を入力したい
自分用のメモ執筆中マイクロソフト　ワード　連番番号

: [Excel基本操作] 見えているセルだけをコピーする
動作確認環境 Windows7 Excel: 2007 見え

→もっと見る

INDEX

カテゴリー
カテゴリー

アーカイブ
アーカイブ

タグ
ADDRESS Application.Intersect メソッド Application オブジェクト AREAS CHOOSE COLUMN COLUMNS Excel VBA ExcelVBAメモ・小技集 Excel基本操作 Excel関数 HLOOKUP HYPERLINK INDEX INDIRECT LOOKUP Range.Activate メソッド Range.Address プロパティ Range.AutoFilter メソッド Range.Findメソッド Range.Insert メソッド Range.Select メソッド Range.Value プロパティ Range オブジェクト Window.View プロパティ Window オブジェクト Worksheet.Change イベントアドイン/オートメーション関数イベントエンジニアリング関数オブジェクトキューブ関数セルの操作データベース関数ピボットテーブルプロパティメソッド情報関数数学/三角関数文字列操作関数日付/時刻関数検索/行列関数統計関数論理関数財務関数

最近の投稿

最近のコメント

広告

サイト内検索

INDEX