上下左右の印刷余白を0にするマクロ

上下左右の印刷余白を0にするマクロを紹介します。

この設定をワンボタンでやるためのマクロですね。

コードは非常に単純でこれだけです。

Sub 印刷余白をすべて0にする()
    With ActiveSheet.PageSetup
        .LeftMargin = 0
        .RightMargin = 0
        .TopMargin = 0
        .BottomMargin = 0
        .HeaderMargin = 0
        .FooterMargin = 0
    End With
End Sub

やってもやらなくてもよさそうですが、
ついでにヘッダーフッターの余白も0にしています。

このマクロを個人用マクロブックなどに書いて、
ツールバーやショートカットキーにセットして使ってください。

個人用マクロブックの使い方についてはこちらをどうぞ。

www.limecode.jp

この「余白0」は、よくやる作業の割に結構手順が面倒で、
マウスだけだど20回以上のクリックが必要です。

4か所の▼を4回ずつカチカチしますからね。

それがワンクリックになるのは素晴らしい！

こういう地味なマクロこそツールバーに設置して使うと効果が抜群です。

印刷系だと「選択エリアを1枚の用紙にクイック印刷」もかなり便利ですので、
気に入ったら合わせてお持ち帰りください。

www.limecode.jp