' The next 2 lines will force the PDF to fit the range onto one page
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1