Sorry, but the code from Black cat did not work to me. I got this:
After much trial and error I got this code to work:
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&L&H&S&V&D&L&H&S"
.RightHeader = ""
End With
Application.PrintCommunication = True
It gives me
just as I want.
But I can not say I understand how it works. It would be nice to do.