Application.PrintCommunication = False With ActiveSheet.PageSetup '縦方向 .Orientation = xlLandscape 'シートを1ページに印刷 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.PrintCommunication = True ActiveWindow.S…