VBA not printing!

NOW IT IS PRINTING !!

I HOPE THIS COULD HELP SOMEONE ELSE WITH SAME SCENARIO

Sub Print_Final_synopsis()

    Dim ws As Worksheet

    Dim rng As Range

    Dim printRange As String

    Set ws = ActiveSheet

    Range("A1:I50" ).Select

    Set rng = Selection

    printRange = ws.Name & "!" & rng.Address

    With ws.PageSetup

        .PrintArea = printRange

        .Zoom = False

        .FitToPagesWide = 1

        .Orientation = xlLandscape

    End With

    Selection.PrintOut     ***** THIS IS THE ONE MISSING TO PRINT

End Sub