VBA fit to 1 page width ONLY

[nicnad]

Hi,

I am struggling to make a worksheet fit to one page width only.

If I use the following code :

    With ActiveWorkbook.Sheets(2).PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .FitToPagesWide = 1

The page width is not set to 1 page

If I use this one :

    With ActiveWorkbook.Sheets(2).PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FittoPagesTall = 0

I get an error on .FittoPagesTall = 0 line

What is the proper way to write this?

 

[MARK858]

Try changing

.FittoPagesTall = 0

to

.FitToPagesTall = False

but strictly speaking you should only need

Sub Macro2()
With ActiveSheet.PageSetup
    .Zoom = False
        .FitToPagesWide = 1
    End With
End Sub

 

[nicnad]

Thank you for the quick reply.

The following code works great. Thanks for the tips :

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False

Regards.

 

[ironwood90242]

This has been a big challenge for me - I used the macro recorder to fit to one page, and got well over 50 lines of code - it's like when I use the recorder for formatting, and I get a ton of code - but that's ok, because I know what I can eliminate.... but I run these samples, and nothing happens - is there something I should be doing / running other code, perhaps, before ?