'縦方向 WORKSHEET.PageSetup.Zoom = False WORKSHEET.PageSetup.FitToPagesTall = 1 '横方向 WORKSHEET.PageSetup.Zoom = False WORKSHEET.PageSetup.FitToPagesWide = 1
FitToPagesTallオブジェクトとFitToPagesWideオブジェクトで縦横1ページで印刷できる縮小率に設定する時は、Zoomオブジェクトで先にFalseを指定して拡大・縮小率をリセットしておきます。
'中央 WORKSHEET.PageSetup.CenterHeader = "hoge" '左側 WORKSHEET.PageSteup.LeftHeader = "hoge" '右側 WORKSHEET.PageSetup.RightHeader = "hoge"