Before

SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-08"];
Print[Date[]];
Print[Plot[Sin[((theta^2)/2)], {theta, 0, 2π}]];
Print[Solve[a (x^2)+b y+c==0, x]];
nb=NotebookGet[EvaluationNotebook[]];
cells=Cases[
nb, c_Cell /; FreeQ[List@@c, Cell] && !FreeQ[c, CellTags->"CellExportTestTag"],
Infinity
];
enb=Notebook[cells,
StyleDefinitions -> Cell[StyleData["All", FontSize->72]]
];
Export["MinimalExportExperiment.pdf",enb];
Export["MinimalExportExperiment.eps",enb];
First@Import["MinimalExportExperiment.pdf"]

After