New answers tagged pdf-format
0
This code should do the work:
directory="Your Notebooks directory";
fnames=FileNames["*.nb"]
outputNB =
CreateDocument[{}, ShowPageBreaks -> True,
WindowTitle -> "Your submision"];
Do[
nb = NotebookOpen[ToFileName[directory, fname]];
SelectionMove[nb, All, Notebook];
NotebookWrite[outputNB, NotebookRead /@ SelectedCells[nb]];
...
2
Here's an idea to get you started. I would prefer to export each notebook to a separate PDF file, then combine them.
notebookfiles = FileNames["/Users/me/test-dir/*.nb"]
openednotebooks = NotebookOpen[StringJoin[Directory[], "/", #],
Visible -> False] & /@ notebookfiles
MapThread[NotebookPrint[#1, StringJoin[#2, ".pdf"]] &,
...
Top 50 recent answers are included
