ページ設定

With ActiveSheet.PageSetup
.PrintArea = False
.Orientation = xlLandscape
.PrintArea = Selection.Address '　選択領域をプリントエリアとする。
End With
'　印刷設定の解除
With ActiveSheet.PageSetup
.PrintArea = False
End With

With ActiveSheet.PageSetup '　margin　は余白。
.LeftMargin = Application.CentimetersToPoints(1.2)
.RightMargin = Application.CentimetersToPoints(0.8)
.TopMargin = Application.CentimetersToPoints(1.6)
.BottomMargin = Application.CentimetersToPoints(1.6)
.LeftHeader = "&A"
.CenterHeader = ""
.RightHeader = "&P/&N"
.CenterFooter = "by H・A・R・T 神奈川"
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With