Excel印刷の各種設定

Application.PrintCommunication = False

With ActiveSheet.PageSetup

	'縦方向
	.Orientation = xlLandscape

	'シートを1ページに印刷
	.Zoom = False
	.FitToPagesWide = 1
	.FitToPagesTall = 1

End With

Application.PrintCommunication = True

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False