VBA: Code for Printing to 11x17

Thanks for looking. I was wandering if there is some code that can be add below so the sheet will print out 11x17, Landscape, Black and White. Thanks as always

Sub Print_Cutting_Form()
'
' Print_Cutting_Form Macro

    Range("AG1:BG54").Select
    ActiveWindow.SmallScroll Down:=-40
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
    ChDir "X:\Excel\FORMS\Estimate Forms\Latest Rev Est Forms"
End Sub