Print all cells independently at once

Question

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.

score 2 · Answer 1 · answered Jul 14 '13 at 12:44

2

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:

cell export

answered Jul 14 '13 at 12:44

cormullion

24,243
4
64
133

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. – Thomas Jul 14 '13 at 12:56
@thomas perhaps add these requirements to your question? I'm not much of a notebook programmer... – cormullion Jul 14 '13 at 13:23
@thomas Consider Split[Cells[], MemberQ[Cells[CellStyle -> {"Input"}], #1] && MemberQ[Cells[CellStyle -> {"Output"}], #2] &] and "CellLabelsToTags" – Michael E2 Jul 14 '13 at 19:46
@cormullion: Ised the above code and get the pdf files but I cannot find the PDFs to print. Where are they stored? – Tugrul Temel Sep 08 '20 at 00:48

Print all cells independently at once

1 Answers1

Linked