見切りなく印刷するマクロ

Excelで書類作成をしていると、印刷したときに2，3行だけハミ出たりするのが鬱陶しいですね。そういうのを考えなくてよくなるマクロです。

横1枚に印刷

Sub 横1枚に印刷()
'
' 横1枚に印刷 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
   Application.PrintCommunication = False
   With ActiveSheet.PageSetup
       .Orientation = xlLandscape
       .Zoom = False
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
   Application.PrintCommunication = True
   MsgBox "横1枚で印刷ができます"
End Sub

縦1枚に印刷

Sub 縦1枚に印刷()
'
' 縦1枚に印刷 Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
   Application.PrintCommunication = False
   With ActiveSheet.PageSetup
       .Orientation = xlPortrait
       .Zoom = False
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
   Application.PrintCommunication = True
   MsgBox "縦1枚で印刷ができます"
End Sub

これらはそれぞれコピペで使えます。

背景

ちゃんと準備された資料であれば、印刷プレビューされた状態で保存しておいてくれているものですが、ちょっと勢いで作った資料なんかは、いざ印刷した時に、1枚でまとまらずに2，3行（場合によっては2，3文字）だけハミ出て、無駄な2枚目が出てしまいます。

こういう時に、わざわざ印刷プレビュー見て、1枚で印刷するようにするのが大変だったので、さっと作って、さっと印刷するマクロを作っていました。

もう、時代が印刷を求めていないのかもしれませんが、ゼロってこともなかろうと思いますので、ニーズがあればお使いくださいませ。

解説

これを作るのは、簡単でして、マクロの記録で作ったものです。
なので、あんまりちゃんと考えずに作っています（でもちゃんと動きます）

私の場合は、このようなちょっとした機能は、ショートカットキーを設定して楽々使っています。

すこぶる便利です。

他にもよく使う、

・黄色に塗りつぶす
・灰色に塗りつぶす
・塗りつぶしを消す
・値の貼り付け
・行のコピペ
・縮小して表示

などをマクロにしてショートカット作ってます。機会があればご紹介します！