Question: different page orientations for different print areas

[uwbadgers76]

I currently have a macro that pulls data from a workbook and creates a new workbook with a sheet called "Appendix A." This sheet contains seven print areas. Below you can see the relevant code from my macro. The problem I am facing is that I would like the first print area ($G$8:$Q$40) to be Landscape for when I go to print, the second and third print areas ($C$42:$M$108,$O$42:$Y$108) to be Portrait, and the fourth through seventh print areas ($C$110:$M$157,$C$159:$M$206,$O$110:$Y157,$O$159:$Y$206) to be Landscape. Any ideas how and where I can type this fix?

Thank you!

 Calculate 
             Call Top40 
             Call Top40Trend 
              
                Application.StatusBar = "Macro - Running" 
                Workbooks.Add 
                Temp1 = ActiveWorkbook.Name 
                Windows(Thisfile).Activate 
                Sheet9.Select 
                ActiveSheet.Copy before:=Workbooks(Temp1).Sheets(1) 
                Workbooks(Temp1).Activate 
                Range("c1:y210").Select 
                Selection.Copy 
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
                    :=False, Transpose:=False 
                Application.CutCopyMode = False 
                Range("a1:b210").ClearContents 
                Range("z1:AF20").Delete 
                Range("aa113:Af210").Delete 
                 
                ActiveSheet.Select 
                Rows("40:40").Select 
                Selection.Insert shift:=xlDown, copyorigin:=FormatFromleftorabove 
                 
                ActiveSheet.PageSetup.PrintArea = "$G$8:$Q$40,$C$42:$M$108,$O$42:$Y$108,$C$110:$M$157,$C$159:$M$206,$O$110:$Y157,$O$159:$Y$206" 
                ActiveSheet.Name = "Appendix A NPA" & sitenumber 
                Cells.Select 
                    Selection.Locked = False 
                    Selection.FormulaHidden = False 
                    Range("a1:c4").Select 
                    Selection.Locked = True 
                    Selection.FormulaHidden = False 
                    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
                    ActiveSheet.EnableSelection = xlUnlockedCells 
                    ActiveSheet.Range("a1").Select  

[protonLeah]

Please Login or Register  to view this content.

[uwbadgers76]

This looks promising––thanks for helping me out. Where would I input this within my entire macro?

[protonLeah]

Without seeing the actual code, I'm guessing it will look something like:

Please Login or Register  to view this content.