How do I get reports to fit-to-one-page in Excel

[Shashee]

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.

[Raine]

You need to set the Zoom property to false :

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

[JonathanD]

Try the following code... it will Help you!

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

[ThoMas321]

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.