Page Footer

[LEXCERM]

Hi,

There are 4 lines of text that I wish to add at the foot of every page which is printed. The pages can vary in quantity as the data will be filtered using different criteria.

I cannot add the text in the Footer field as it exceeds 255 characters.

How can I add these 4 lines of text at the bottom of each page that is printed, bearing in mind that there will be differing amount of pages printed?

Thanks in advance for your help.

Paul.

 

[Domski]

Hi,

Not ideal but could the text go at the top of the page instead? If so you could use the Rows to repeat at top option from Page Setup.

Dom

 

[lenze]

With code:

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    ActiveSheet.PageSetUp.LeftFooter ="First Line" & CHR(10) & "Second Line" & CHR(10) & "Third Line" & CHR(10) & "Fourth Line"
End Sub

This goes in the This WorkBook module. RightClick the Excel icon to the left of the word "File" on the menu bar and choose "View Code".

HTH
lenze

 

[Domski]

Lenze,

Does that get round the 255 character limit?

Been looking at this myself recently for a work project and understood it couldn't be bypassed.

Dom

 

[LEXCERM]

Thanks for replying,

Have just tried the code but it errors:

1004
Unable to set the centre footer property of the Pages Setup class.

It must be the 255 character limit

Paul.

 

[LEXCERM]

The only way I can think of achieving this is to type the details and save it as a jpeg - then insert the graphic in the footer.

It works, but have to tweak it to get clear printing.

Paul.

 

[lenze]

It may not get around the 255 character limit. I don't really know. Perhaps the solution is to break the footer up

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    With ActiveSheet.PageSetUp
            .LeftFooter ="First Line" & CHR(10) & "Second Line" 
            .RightFooter = "Third Line" & CHR(10) & "Fourth Line"
    End With
 
End Sub

lenze