How to export a large Grid/Table on a single PDF page?
- To: mathgroup at smc.vnet.net
- Subject: [mg116122] How to export a large Grid/Table on a single PDF page?
- From: "M.Roellig" <markus.roellig at googlemail.com>
- Date: Thu, 3 Feb 2011 05:26:51 -0500 (EST)
Dear group,
from time to time I would like to export a Grid or Table as PDF such
that the whole
thing is scaled to fit a single page (portrait or landscape). What is
the preferred way to
do this? The Options part in the "PDF" help page is somewhat sparse.
Right now I export the table to Excel and create the PDF there. If not
PDF, maybe another
Export format could be faciliated??
I attach an example for you to play around:
transs = {1, 3, 3, 49, 49, 1, 3, 15, 30};
species = {"A", "B", "C", "D", "E", "F", "G", "H", "I"};
parcolnum = 0;
poss = Drop[Accumulate[Prepend[transs, 1]] + parcolnum - 1, -1];
translist =
PadRight[#, Max[transs], ""] & /@
Table[Table[
species[[j]] <> " " <> ToString[i] <> "-" <> ToString[i - 1], {i,
1, transs[[j]]}], {j, 1, Length[transs]}];
collist =
PadRight[#, Max[transs], ""] & /@
Table[Table[poss[[i]] + j, {j, 1, transs[[i]]}], {i, 1,
Length[species]}];
grid = Grid[Transpose@Riffle[translist, collist],
Alignment -> {Left, Baseline}]
Export[<filename>,grid,"PDF"] (* gives a rather unreadable PDF*)
Any input is appreciated,
Markus