Sub Печать()
        'печатаем лишь нужные страницы
        Application.DisplayAlerts = False
        For j = Sheets.Count To 1 Step -1
            If Sheets(j).Name <> "7_качеств_личности" And Sheets(j).Name <> "Темпераменты" And Sheets(j).Name <> "Base" And _
             Sheets(j).Name <> "Sort" And Sheets(j).Name <> "BallOneSchool" And Sheets(j).Name <> "Разное" And Sheets(j).Name <> "errore" Then
                Application.PrintCommunication = False
                With Sheets(j).PageSetup
                    .LeftHeader = ""
                    .CenterHeader = ""
                    .RightHeader = ""
                    .LeftFooter = ""
                    .CenterFooter = ""
                    .RightFooter = ""
                    .LeftMargin = Application.InchesToPoints(0.590551181102362)
                    .RightMargin = Application.InchesToPoints(0.590551181102362)
                    .TopMargin = Application.InchesToPoints(0.393700787401575)
                    .BottomMargin = Application.InchesToPoints(0.590551181102362)
                    .HeaderMargin = Application.InchesToPoints(0.31496062992126)
                    .FooterMargin = Application.InchesToPoints(0.31496062992126)
                    .PrintHeadings = False
                    .PrintGridlines = False
                    .PrintComments = xlPrintNoComments
                    .PrintQuality = 600
                    .CenterHorizontally = False
                    .CenterVertically = False
                    .Orientation = xlPortrait
                    .Draft = False
                    .PaperSize = xlPaperA4
                    .FirstPageNumber = xlAutomatic
                    .Order = xlDownThenOver
                    .BlackAndWhite = False
                    .Zoom = 100
                    .PrintErrors = xlPrintErrorsDisplayed
                    .OddAndEvenPagesHeaderFooter = False
                    .DifferentFirstPageHeaderFooter = False
                    .ScaleWithDocHeaderFooter = True
                    .AlignMarginsHeaderFooter = True
                    .EvenPage.LeftHeader.Text = ""
                    .EvenPage.CenterHeader.Text = ""
                    .EvenPage.RightHeader.Text = ""
                    .EvenPage.LeftFooter.Text = ""
                    .EvenPage.CenterFooter.Text = ""
                    .EvenPage.RightFooter.Text = ""
                    .FirstPage.LeftHeader.Text = ""
                    .FirstPage.CenterHeader.Text = ""
                    .FirstPage.RightHeader.Text = ""
                    .FirstPage.LeftFooter.Text = ""
                    .FirstPage.CenterFooter.Text = ""
                    .FirstPage.RightFooter.Text = ""
                End With
                Application.PrintCommunication = True
                Sheets(j).PrintOut Copies:=1, Collate:=True
            End If
        Next
        Application.DisplayAlerts = True
End Sub