I've never done it, but I think you could get the general gist of it by recording a macro where you put the headers in and then, take them out. And then using the BeforePrint event inside ThisWorkbook with the PrintOut command and specific settings.
I made a quick try of it. I think the syntax needs a little tweaking, but this should get you close.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = mySheet Then
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
Sheets(mySheet).PrintOut(1, 1) = True
.LeftHeader = "myText"
.CenterHeader = "myText"
.RightHeader = "myText"
.LeftFooter = "myText"
.CenterFooter = "myText"
.RightFooter = "myText"
Sheets(mySheet).PrintOut(2) = True