印刷する余白の設定 (上下余白、左右余白、ヘッダー・フッター余白) : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAで余白を設定するには、PageSetupオブジェクトのそれぞれのプロパティで設定します。

上余白 : TopMargin
下余白 : BottomMargin
左余白 : LeftMargin
右余白 : RightMargin
ヘッダー余白 : HeaderMargin
フッター余白 : FooterMargin

Excelシート画面

■実行フォーム
余白設定シート

■余白位置

スポンサーリンク


Excel VBA実行コード

Option Explicit

'ボタン1のクリックイベント
Private Sub CommandButton1_Click()
    '左余白の設定
    Worksheets("Sheet1").PageSetup.LeftMargin = Range("C5").Value
    '右余白の設定
    Worksheets("Sheet1").PageSetup.RightMargin = Range("E5").Value
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'ボタン2のクリックイベント
Private Sub CommandButton2_Click()
    '上余白の設定
    Worksheets("Sheet1").PageSetup.TopMargin = Range("C9").Value
    '下余白の設定
    Worksheets("Sheet1").PageSetup.BottomMargin = Range("E9").Value
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'ボタン3のクリックイベント
Private Sub CommandButton3_Click()
    'ヘッダー余白の設定
    Worksheets("Sheet1").PageSetup.HeaderMargin = Range("C13").Value
    'フッター余白の設定
    Worksheets("Sheet1").PageSetup.FooterMargin = Range("E13").Value
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Private Sub CommandButton4_Click()
    '左余白の設定
    Worksheets("Sheet1").PageSetup.LeftMargin = Application.CentimetersToPoints(2)
    '右余白の設定
    Worksheets("Sheet1").PageSetup.RightMargin = Application.CentimetersToPoints(2)
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Private Sub CommandButton5_Click()
    '上余白の設定
    Worksheets("Sheet1").PageSetup.TopMargin = Application.CentimetersToPoints(2.5)
    '下余白の設定
    Worksheets("Sheet1").PageSetup.BottomMargin = Application.CentimetersToPoints(2.5)
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Private Sub CommandButton6_Click()
    'ヘッダー余白の設定
    Worksheets("Sheet1").PageSetup.HeaderMargin = Application.CentimetersToPoints(1.3)
    'フッター余白の設定
    Worksheets("Sheet1").PageSetup.FooterMargin = Application.CentimetersToPoints(1.3)
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved