'Sets the print area and print formatting

    ActiveSheet.PageSetup.PrintArea = "=" & ActiveSheet.UsedRange.Address

    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0.4)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0.1)
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With