VBA on Printing

[wedzmer]

This is the VBA Code I'm working on but it's kinda' limited to what I'm suppose to achieve and also it has certain issues like:

1. The Print Button can only let me choose which array (or section) will be printed at that current set.
2. The Scaling SHOULD change when the Print Button should read the "portrait" section to 76% and the "landscape" section to 56%.

What I want to achieve.

1. The Print Button SHOULD read all the 5 sections at once and render it's specific orientation by printing it all at the same time (CTRL + P)
2. The scaling automatically adjusts for the sections of portrait and landscape to 76% and 56% respectively.

[/COLOR][COLOR=#333333]Sub PrintArea()[/COLOR]
<code style="margin: 0px; padding: 0px; font-style: inherit;">    Dim MyPrintAreas    As Variant, _
        AreaNum         As Long, _
        Ndx             As Long, _
        Prompt          As String
        
    MyPrintAreas = Array( _
        [COLOR=#FF0000]Array("$d$2:$s$91", xlPortrait), _
        Array("$AA$2:$AP$91", xlPortrait), _
        Array("$BA$2:$BP$91", xlPortrait), _
        Array("$CA$2:$CP$91", xlPortrait), _
        Array("$DA$2:$EZ$112", xlLandscape))
[/COLOR]    
    Prompt = "Select an area to print"
    For Ndx = LBound(MyPrintAreas) To UBound(MyPrintAreas)
        Prompt = Prompt & vbCrLf & vbCrLf & vbTab & Ndx + 1 & vbTab & MyPrintAreas(Ndx)(0)
    Next Ndx
    Ndx = 0
    Ndx = InputBox(Prompt) - 1

    With ActiveSheet.PageSetup
         .PrintArea = ""
        .PrintArea = MyPrintAreas(Ndx)(0)
        .Orientation = MyPrintAreas(Ndx)(1)
    End With </code>[COLOR=#333333]End Sub[/COLOR][COLOR=#333333]

3. If ever Number 1 could not be done, at least the Pop-Up Notice would give me the option to give a name for these sets of Array given above like: 1st Quarter, 2nd Quarter et.