How to insert pagebreaks when exporting a List to .pdf file?

Questions
, ,
1

I’d like to create some multi-page .pdf files containing long tables of text with graphs. These will be supplemental files in a publication. Here is a model of my data:

(* writes single page .pdf file *)
myTable = (Row[{"description", MatrixForm[GraphDistanceMatrix[#]], #},
       Spacer[12]] & /@ GraphData["HeawoodGraph", "Graph", "All"]);
myPDF = FileNameJoin[{$HomeDirectory, "Desktop", "myTable.pdf"}];
Export[myPDF, myTable];
2

Try printing the output cell to pdf from the Front End.

3

To eliminate manual processing, I would need to write the List to a Cell and then Export the Cell to a file. Do you have a working example that produces multi-page output?

4

The attached pdf is multipage. Got it by evaluating myTable in a blank notebook. Deleted the input cell, and did set the notebook option ShowCellLabel to False. Then saved the notebook as a pdf.

myTable.pdf (89.2 KB)

5

Maybe you can send the output to a blank notebook and print that?

6

The cell option PageBreakWithin -> True may play a role.

7

Thank Hans, but I need a solution relying only on Wolfram Language. The manual steps you describe will become too tedious for the number of documents I need to produce.

8

How is that done?

9

Here is a way that reduces, but does not eliminate, the need for manual actions:

myTable = Column[
  Row[{"description", MatrixForm[GraphDistanceMatrix[#]], #},Spacer[12]] & /@ GraphData["HeawoodGraph", "Graph", "All"],
  Automatic,1
];
myPDF=FileNameJoin[{$HomeDirectory, "Desktop", "myTable"}];
FrontEndExecute[FrontEndToken[CreateDocument[myTable,NotebookFileName->myPDF],"SaveRename"]]
10

Here’s what I gather from the discussion so far

  • There’s no guide for application of Cell page break options
  • A notebook is a terminal object whose container is a file

True or False?