I'm trying my absolute hardest......but to no avail
Here is my code:
Public Sub NoFirstPageFooter_AllSheets()
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWindow.SelectedSheets
' Clear footer before printing the first page
.PageSetup.LeftFooter = ""
' Print the first page
.PrintOut From:=1, To:=1
' Set the footer for subsequent pages
.PageSetup.LeftFooter = "&20OTL Tel: 0845 845 0845 Email: email@example.com" & "&10© All Rights Reserved"
' Print the subsequent pages
However, I'd like to make the 'OTL, Tel No and Email addy in a certain font and I'd like the copyright line to be two lines down......
Can anyone help me with regards to what I need to write in my code to enable it to do that?
Many thanks everyone....