Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: it isn't strange?!
  • Next by Date: Re: Pattern matching in lists
  • Previous by thread: Re: Remove Symbolize
  • Next by thread: Re: How to export a large Grid/Table on a single PDF page?