VBA - Page Setup - Fit all columns on one page.

[HighAndWilder]

I'd like to fit all columns on one page in page setup using VBA.

How do I do this?

Lots of suggestions as below but this does not work.

Thanks

With ActiveSheet.PageSetup
      .FitToPagesWide = 1
End With

 

[Alex Blakenburg]

Try:

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

 

[HighAndWilder]

Try:

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

Thanks for responding.

I've tried that and it puts all of the data onto a single page.

I need the third option - Fit All Columns On One Page

 

[Alex Blakenburg]

I think it might be remembering a previous setting try resetting the Tall parameter at the same time.
(Credit to @MARK858 in an old thread on the Forum)

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

 

[HighAndWilder]

I think it might be remembering a previous setting try resetting the Tall parameter at the same time.
(Credit to @MARK858 in an old thread on the Forum)

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

That works, Thanks.

It would be nice if the wording was similar as it is when the changes are made manually but we can't have everything.

Onto the next challenge.

 

[Alex Blakenburg]

It certainly seems that way . Thanks for the update. Glad we could help.