マクロでページ設定

Sub ページ設定()
Dim sheet As Worksheet

For Each sheet In ActiveWorkbook.sheets
With sheet.PageSetup
.HeaderMargin = Application.CentimetersToPoints(1)
.TopMargin = Application.CentimetersToPoints(1.8)
.BottomMargin = Application.CentimetersToPoints(0.9)
.FooterMargin = Application.CentimetersToPoints(0.4)
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
.CenterHeader = vbNullString
.RightHeader = vbNullString
.LeftHeader = vbNullString
.Zoom = 95
.RightFooter = "&9<%会社名とか%>"
.CenterFooter = "&9P.&P/&N"
.LeftFooter = "&9&A"
End With
Next

End Sub