Is there any way to print out to pdf file, in sequence, all cells independently? I have literally hundreds of cells that need to be printed in that way. Selecting each cell and "Print Selections" takes me ages before I finish.
1 Answer
A simple suggestion, assuming you want each cell in a separate file:
cellCounter = 1;
Map[
Export[
StringJoin["cell-", ToString[cellCounter++], ".pdf"],
NotebookRead[#]] &,
Cells[]];
and the resulting file corresponding to this cell:
-
$\begingroup$ Awesome, thank you very much. It's possible to print out cells "In" and "Out" together (including labels). Now, each of them is printed to separated file. $\endgroup$– ThomasJul 14, 2013 at 12:56
-
$\begingroup$ @thomas perhaps add these requirements to your question? I'm not much of a notebook programmer... $\endgroup$ Jul 14, 2013 at 13:23
-
$\begingroup$ @thomas Consider
Split[Cells[], MemberQ[Cells[CellStyle -> {"Input"}], #1] && MemberQ[Cells[CellStyle -> {"Output"}], #2] &]
and"CellLabelsToTags"
$\endgroup$ Jul 14, 2013 at 19:46 -
$\begingroup$ @cormullion: Ised the above code and get the pdf files but I cannot find the PDFs to print. Where are they stored? $\endgroup$ Sep 8, 2020 at 0:48