SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-05"]

DeleteFile["NhaTrangDemo.pdf"]

If[FileType["NhaTrangDemo.pdf"]===None || (
FileType["NhaTrangDemo.pdf"] === File && OrderedQ[{FileDate["NhaTrangDemo.pdf"], FileDate["NhaTrangDemo.nb"]}]),
Print["Making NhaTrangDemo.pdf..."];
nb=Get["NhaTrangDemo.nb"] /. {
(PageFooters-> _) -> (PageFooters -> {{None,None,None},{None,None,None}}),
(PageHeaders-> _) -> (PageHeaders -> {{None,None,None},{None,None,None}}),
(PrintingOptions->popts_) :> (PrintingOptions->popts /. {
("PrintingMargins"->_)->("PrintingMargins"->{{0,0},{5,5}}),
("EmbedStandardPostScriptFonts"->_) -> ("EmbedStandardPostScriptFonts"->False)
}),
(StyleDefinitions->Notebook[{cells___}, rules___]) :> (
StyleDefinitions->Notebook[{cells,Cell[StyleData[All,"Printout"],ShowSyntaxStyles->True, Magnification -> 0.9]},rules]
)
};
Export["NhaTrangDemo.pdf", nb];
];

Cases[nb, _[PrintingOptions,_], Infinity]

Cases[nb, _[StyleDefinitions,_], Infinity]