Help for this page
$sheet -> PageSetup -> {FitToPagesWide} = 1;
With ActiveSheet.PageSetup .PrintTitleRows = "" ... .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With