VBA – Set Excel Print Settings Fit Sheet on One page

Code Sample of : Fit All Columns on one page

Sub PrintColumns()
    Application.PrintCommunication = False
    With Sheets("Print Letter").PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    Application.PrintCommunication = True
End Sub

 

References:

https://stackoverflow.com/questions/25741049/how-to-set-fit-all-columns-on-one-page-in-print-tab