use the pagesetup of the range
.PageSetup.FitToPagesWide