VBA Code

Application.Presentations(1).PrintOut 

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 

Modifying

With ActiveDocument.Sections(1).Footers(wdheaderfooterprimary) 
   .Delete 
   .Fields.Add range := Selection, type := wdfieldname, text := "\p" 
   .InsertAfter text := vbTab 
   .InsertAfter text := vbTab 
   .Collapse direction := wdcollapsestart 
   .Fields.Add range := Selection, type := fieldauthor 
End With