印刷の余白設定する

 

Sub test()

   ’  印刷の余白設定する

 

    With Worksheets(1)

        ' 印刷の上余白を設定
        .PageSetup.TopMargin = 35
        
        ' 印刷の下余白を設定
        .PageSetup.BottomMargin = 15

        ' 印刷の左余白を設定
        .PageSetup.LeftMargin = 35

        ' 印刷の右余白を設定
        .PageSetup.RightMargin = 15

    End With

 

End Sub

 

余白設定の数字は、ポイントとなります。1ポイントは1/72インチ、約0.35mmです。

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事