How do I get reports to fit-to-one-page in Excel
I am working on a spreadsheet which has many columns & Row but when printing this file it just prints 4 pages instead to 2 pages. it prints 2 columns on the next page for both the spreadsheet.
Can any one tell me how to adjust that columns to fit to one page while printing.
Re: How do I get reports to fit-to-one-page in Excel
You need to set the Zoom property to false :
Code:
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Re: How do I get reports to fit-to-one-page in Excel
Try the following code... it will Help you!
Code:
Application. ScreenUpdating = False
Range("cpp_flag") = 1
Range("B:G,L:N,T:AK").EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = "$A$7:$S$37"
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0.2)
.BottomMargin = Application.InchesToPoints(0.5)
.LeftMargin = Application.InchesToPoints(0.17)
.RightMargin = Application.InchesToPoints(0.18)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.Orientation = xlPortrait
.CenterVertically = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Re: How do I get reports to fit-to-one-page in Excel
In print preview select page tab and tick fit to 1 page wide by 1 page tall. Adjust margin to make reduction as small as possible.