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