Make every Tab print to Landscape View

[laurenh345]

Hi everyone,

I need help with a vba please. I have a workbook with 200 tabs and I need each one to print landscape view and have my columns print to a one page length. I have the following VBA but need some help making it a loop. Thanks in advance!

Sub FITPAGESTO_ONEPAGE()
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
Sheets(sh).PageSetup.Orientation = xlLandscape
End With
End Sub

 

[MARK858]

Duplicate question of VBA-Format every tab to print all columns width to one page and print in landscape

 

[snjpverma]

Try this in a copy of your workbook as macro can be undone.

Sub FITPAGESTO_ONEPAGE()

Dim sh As Worksheet
    For Each sh In Sheets
    
    sh.Select
        With ActiveSheet.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
            Sheets(sh).PageSetup.Orientation = xlLandscape
        End With
    Next

End Sub

 

[MARK858]

@snjpverma, do you not get an error on the line below?

Sheets(sh).PageSetup.Orientation = xlLandscape

Also see post number 2 ref: Duplicate post.

 

[laurenh345]

Thank you so much for responding.Yes, I do get the run time error "data type mismatch" when I run that.

 

[laurenh345]

The response from Mark858 worked and fixed the problem on my sheet. Thank you for helping me.

 

[MARK858]

Your welcome, but please in future don't duplicate questions as per the forum rules.