I have 3 separate macro buttons for printing 3 different ranges. When it prints, it doesn't "fit to 1 page", but prints larger type over 3 pages. If there is a better way of doing this, I would like to know.
The code I have used for the first page is as follows:
Application.ScreenUpdating = False
.BottomMargin = Application.InchesToPoints(1#)
.FitToPagesWide = 1
.FitToPagesTall = 1
.RightFooter = "&""Arial Black,Regular""Pg. 1"
Application.ScreenUpdating = True