SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\AcademicPensieve"]

nb=NotebookOpen["C:\\drorbn\\AcademicPensieve\\Projects\\AcademicPensieve\\PrintingExperiments.nb"]

Options[nb]

Options[nb, PrintingOptions]

("GraphicsPrintingFormat"->_) -> ("GraphicsPrintingFormat"->"Bitmap")

SetOptions[nb,
ReplaceAll[
Options[nb, PrintingOptions],
("FirstPageHeader"->_) -> ("FirstPageHeader"->True)
]
]

nav = "Dror Bar-Natan"

SetOptions[nb,
PageHeaders -> Table[{nav,None,DateString[]},{2}]
];
NotebookPrint[nb, "C:\\drorbn\\AcademicPensieve\\Projects\\AcademicPensieve\\PrintingExperiments.pdf"]

Cell[
Hyperlink["Dror Bar-Natan", "http://www.math.toronto.edu/~drorbn/"]
]