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.

You need to set the Zoom property to false :

Code:

---

With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

---

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

---

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.