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"]]