Imagine having many Sheets in a workbook. Now you would like all of them to print in a same way. Let’s say with the same header and footer. Many people do this by selecting all the sheets and applying the settings, but sometimes the selection itself can be a hassle if the number of Sheets is very large. The VBA code bellow will allow you to copy the print settings of the active Sheet to all other Sheets in a Workbook with one click https://www.247locksmithfinder.com/emergency-locksmith. Simple and very useful!

Sub XET_CopyCurrentPageSetup()
        s = ""
        With ActiveSheet.PageSetup
            
            ps_LeftHeader = .LeftHeader
            ps_CenterHeader = .CenterHeader
            ps_RightHeader = .RightHeader
            ps_LeftFooter = .LeftFooter
            ps_CenterFooter = .CenterFooter
            ps_RightFooter = .RightFooter
            ps_PrintTitleRows = .PrintTitleRows
            ps_PrintArea = .PrintArea
            ps_LeftMargin = .LeftMargin
            ps_RightMargin = .RightMargin
            ps_TopMargin = .TopMargin
            ps_BottomMargin = .BottomMargin
            ps_Orientation = .Orientation
            ps_Zoom = .Zoom
            ps_FitToPagesWide = .FitToPagesWide
            ps_FitToPagesTall = .FitToPagesTall
            ps_HeaderMargin = .HeaderMargin
            ps_FooterMargin = .FooterMargin
            ps_PrintHeadings = .PrintHeadings
            ps_PrintGridlines = .PrintGridlines
            ps_PrintComments = .PrintComments
            ps_PrintQuality = .PrintQuality
            ps_CenterHorizontally = .CenterHorizontally
            ps_CenterVertically = .CenterVertically
            ps_Orientation = .Orientation
            ps_Draft = .Draft
            ps_PaperSize = .PaperSize
            ps_FirstPageNumber = .FirstPageNumber
            ps_Order = .Order
            ps_BlackAndWhite = .BlackAndWhite
            ps_Zoom = .Zoom
            ps_PrintErrors = .PrintErrors
            ps_OddAndEvenPagesHeaderFooter = .OddAndEvenPagesHeaderFooter
            ps_DifferentFirstPageHeaderFooter = .DifferentFirstPageHeaderFooter
            ps_ScaleWithDocHeaderFooter = .ScaleWithDocHeaderFooter
            ps_AlignMarginsHeaderFooter = .AlignMarginsHeaderFooter
            ps_EvenPageLeftHeaderText = .EvenPage.LeftHeader.Text
            ps_EvenPageCenterHeaderText = .EvenPage.CenterHeader.Text
            ps_EvenPageRightHeaderText = .EvenPage.RightHeader.Text
            ps_EvenPageLeftFooterText = .EvenPage.LeftFooter.Text
            ps_EvenPageCenterFooterText = .EvenPage.CenterFooter.Text
            ps_EvenPageRightFooterText = .EvenPage.RightFooter.Text
            ps_FirstPageLeftHeaderText = .FirstPage.LeftHeader.Text
            ps_FirstPageCenterHeaderText = .FirstPage.CenterHeader.Text
            ps_FirstPageRightHeaderText = .FirstPage.RightHeader.Text
            ps_FirstPageLeftFooterText = .FirstPage.LeftFooter.Text
            ps_FirstPageCenterFooterText = .FirstPage.CenterFooter.Text
            ps_FirstPageRightFooterText = .FirstPage.RightFooter.Text
        End With

        For Each s In Worksheets
            If s.Name <> ActiveSheet.Name Then
                With s.PageSetup
                    .LeftHeader = ps_LeftHeader
                    .CenterHeader = ps_CenterHeader
                    .RightHeader = ps_RightHeader
                    .LeftFooter = ps_LeftFooter
                    .CenterFooter = ps_CenterFooter
                    .RightFooter = ps_RightFooter
                    .PrintTitleRows = ps_PrintTitleRows
                    .PrintArea = ps_PrintArea
                    .LeftMargin = ps_LeftMargin
                    .RightMargin = ps_RightMargin
                    .TopMargin = ps_TopMargin
                    .BottomMargin = ps_BottomMargin
                    .Orientation = ps_Orientation
                    .Zoom = ps_Zoom
                    .FitToPagesWide = ps_FitToPagesWide
                    .FitToPagesTall = ps_FitToPagesTall
                    .HeaderMargin = ps_HeaderMargin
                    .FooterMargin = ps_FooterMargin
                    .PrintHeadings = ps_PrintHeadings
                    .PrintGridlines = ps_PrintGridlines
                    .PrintComments = ps_PrintComments
                    .PrintQuality = ps_PrintQuality
                    .CenterHorizontally = ps_CenterHorizontally
                    .CenterVertically = ps_CenterVertically
                    .Orientation = ps_Orientation
                    .Draft = ps_Draft
                    .PaperSize = ps_PaperSize
                    .FirstPageNumber = ps_FirstPageNumber
                    .Order = ps_Order
                    .BlackAndWhite = ps_BlackAndWhite
                    .Zoom = ps_Zoom
                    .PrintErrors = ps_PrintErrors
                    .OddAndEvenPagesHeaderFooter = ps_OddAndEvenPagesHeaderFooter
                    .DifferentFirstPageHeaderFooter = ps_DifferentFirstPageHeaderFooter
                    .ScaleWithDocHeaderFooter = ps_ScaleWithDocHeaderFooter
                    .AlignMarginsHeaderFooter = ps_AlignMarginsHeaderFooter
                    .EvenPage.LeftHeader.Text = ps_EvenPageLeftHeaderText
                    .EvenPage.CenterHeader.Text = ps_EvenPageCenterHeaderText
                    .EvenPage.RightHeader.Text = ps_EvenPageRightHeaderText
                    .EvenPage.LeftFooter.Text = ps_EvenPageLeftFooterText
                    .EvenPage.CenterFooter.Text = ps_EvenPageCenterFooterText
                    .EvenPage.RightFooter.Text = ps_EvenPageRightFooterText
                    .FirstPage.LeftHeader.Text = ps_FirstPageLeftHeaderText
                    .FirstPage.CenterHeader.Text = ps_FirstPageCenterHeaderText
                    .FirstPage.RightHeader.Text = ps_FirstPageRightHeaderText
                    .FirstPage.LeftFooter.Text = ps_FirstPageLeftFooterText
                    .FirstPage.CenterFooter.Text = ps_FirstPageCenterFooterText
                    .FirstPage.RightFooter.Text = ps_FirstPageRightFooterText
                End With
            End If
        Next
End Sub

This Code can also be found in an Xnet Excel Tools AddIn for Excel which is free and can be downloaded here.