'縦方向
WORKSHEET.PageSetup.Zoom = False
WORKSHEET.PageSetup.FitToPagesTall = 1
 
'横方向
WORKSHEET.PageSetup.Zoom = False
WORKSHEET.PageSetup.FitToPagesWide = 1

FitToPagesTallオブジェクトとFitToPagesWideオブジェクトで縦横１ページで印刷できる縮小率に設定する時は、Zoomオブジェクトで先にFalseを指定して拡大・縮小率をリセットしておきます。

'中央
WORKSHEET.PageSetup.CenterHeader = "hoge"
 
'左側
WORKSHEET.PageSteup.LeftHeader = "hoge"
 
'右側
WORKSHEET.PageSetup.RightHeader = "hoge"