With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        [color=red].CenterHeader = "&""Arial Cyr,полужирный курсив""&12&UКОЛОНТИТУЛ"[/color]
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints( 0 . 78740157480315 )
        .RightMargin = Application.InchesToPoints( 0 . 78740157480315 )
        .TopMargin = Application.InchesToPoints( 0 . 984251968503937 )
        .BottomMargin = Application.InchesToPoints( 0 . 984251968503937 )
        .HeaderMargin = Application.InchesToPoints( 0 . 511811023622047 )
        .FooterMargin = Application.InchesToPoints( 0 . 511811023622047 )
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality =  1200 
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom =  100 
        .PrintErrors = xlPrintErrorsDisplayed
    End With