Print Visible rows and specific columns, force Landscape

I am trying to get a macro to enable colleagues to print a Briefing Sheet. Rows 12 - 206 hide/show depending the code

Sub AutoFilter_Example1()
    Dim i           As Long

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    With ActiveSheet
        If .AutoFilterMode Then
            .AutoFilterMode = False
        End If

        With .Range("A12:D" & Cells(Rows.Count, "A").End(xlUp).Row)
            For i = 1 To .Columns.Count
                .AutoFilter Field:=i, VisibleDropDown:=False
            Next i
            .AutoFilter Field:=1, Criteria1:="<>Hide"
        End With
    End With

    Application.Calculation = xlCalculationAutomatic

End Sub

I have used some very simple code

Sub PrintSomeCells()
Range("A1:E206").PrintOut
End Sub

and if I set my orientation to Landscape it prints fine, but if someone else opens the document their local settings override the Landscape/Portrait options.

How am I able to print Visible Rows in A1:E206, in Landscape

Maybe

Sub PrintSomeCells()
Dim currOrientation As Long
With ActiveSheet
    currOrientation = .PageSetup.Orientation
    .PageSetup.Orientation = xlLandscape
    .Range("A1:E206").PrintOut
    .PageSetup.Orientation = currOrientation
End With
End Sub