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

Excelで書類作成をしていると、印刷したときに2，3行だけハミ出たりするのが鬱陶しいですね。そういうのを考えなくてよくなるマクロです。 横1枚に印刷Sub 横1枚に印刷()'' 横1枚に印刷 Macro'' Keyboard Shortcut: Ctrl+Shift+Y' Application.PrintCommunication = False With ActiveSheet.PageSetup .Orientation = xlLandscap