VBA Different first page/odd page header/footer

[tjdickinson]

I'm working on a sheet that spans two pages, and I'm trying to format the page setup in VBA (as the culmination of a number of other operations the macro is executing). Since the result is on only two pages, it doesn't matter to me whether it's odd/even pages or different first page.

In my page setup block, I have the following code:

With ActiveSheet.PageSetup
    .Orientation = xlLandscape
    .PaperSize = xlPaperA3
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
    .LeftMargin = Application.CentimetersToPoints(1.25)
    .RightMargin = Application.CentimetersToPoints(1.25)
    .TopMargin = Application.CentimetersToPoints(1.25)
    .BottomMargin = Application.CentimetersToPoints(1.25)
    .HeaderMargin = Application.CentimetersToPoints(0.5)
    .FooterMargin = Application.CentimetersToPoints(0.5)
    .CenterVertically = True    ' centre the sheet vertically on the page
    .CenterHorizontally = True    ' centre the sheet horizontally on the page
    .DifferentFirstPageHeaderFooter = True
    .FirstPage.LeftHeaderPicture.fileName = LogoFile
    .FirstPage.LeftHeaderPicture.Height = 55.5
    .FirstPage.LeftHeader = "&G"    ' inserts a picture (= LogoFile)
    .FirstPage.CenterHeader = "&""Alegreya Sans SC ExtraBold""&18&K354896" & shTitle    ' set the font, font size, and font colour with the sheet title
    .FirstPage.CenterFooter = "&""Alegreya""&9&K000000" & "Fold and attach here"
    .CenterHeader = "&""Alegreya""&9&K000000" & "Fold and attach here"
    .LeftFooter = "&""Alegreya""&9&K000000" & lFooter & "&A"    ' set the font, font size, font colour, and footer text with the sheet name
End With

However, when I run the macro, I get error 438 "Object doesn't support this property or method", and the debug points to the line .FirstPage.LeftHeaderPicture.fileName = LogoFile.

When I try the same thing but with .OddAndEvenPagesHeaderFooter, I get the same error message, and the debug points to .EvenPage.CenterHeader.

Without the different first page/odd and even pages option (and the respective properties removed), the headers/footers are correctly applied (to all pages); thus the issue doesn't seem to be with anything else in those lines, just with the .FirstPage/.EvenPage property.

I haven't been able to find anything online that gives more information about the .DifferentFirstPageHeaderFooter / .OddAndEvenPagesHeaderFooter properties, or about the .FirstPage / .EvenPage properties. Microsoft's documentation is no help at all except to verify that these properties exist.

Can anyone identify what's going wrong and how I need to fix it?

Thanks in advance for your help!

 

[John_w]

With DifferentFirstPageHeaderFooter = True or OddAndEvenPagesHeaderFooter = True, use the LeftHeader property instead of LeftHeaderPicture:

        .DifferentFirstPageHeaderFooter = True
        .FirstPage.LeftHeader.Picture.Filename = LogoFile
        .FirstPage.LeftHeader.Text = "&G"
        .FirstPage.CenterHeader.Text = "&""Alegreya Sans SC ExtraBold""&18&K354896" & shTitle    ' set the font, font size, and font colour with the sheet title
        .FirstPage.CenterFooter.Text = "&""Alegreya""&9&K000000" & "Fold and attach here"

There isn't an equivalent property for Height though.