Formatting Macro based on Zoom (PageScale)

[thundercats9595]

I am new and inexperienced with programing, so I apologize for using the wrong terminology in advance.

I would like to create a Formatting macro that would set the worksheet to (1) Page Wide by (unknown) Tall on Letter size paper Landscape.

Once the formatting is complete, I would like it then to add (+1) page wide if the Zoom (Page Scaling) is under 40%.

If Page Scaling is still under 40% after that add (+1) more page to Wide.

Is this possible with a macro? And if so, what are the basic steps to set up this formula?

I have the below at the moment which sets a worksheet (1) page Wide by (False) Tall, Letter, Landscape.

 
 
Sub Formatting()
 
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
 
        .Orientation = xlLandscape
        .PaperSize = xlPaperLetter
        .Order = xlOverThenDown
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
 
    End With
    Application.PrintCommunication = True
End Sub

Again, any and all assistance is very much appreciated.



Thank you.