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

MathGroup Archive 2009

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

Search the Archive

printing problem with very simple application

  • To: mathgroup at smc.vnet.net
  • Subject: [mg100265] printing problem with very simple application
  • From: congruentialuminaire at yahoo.com
  • Date: Fri, 29 May 2009 21:00:53 -0400 (EDT)

Hello MathGroup:

I have this exceeding simple Mathematica program:

dumpEthn[ctry_String] := Module[
  {leg , dat, cData},
  cData = CountryData[ctry, "EthnicGroupsFractions"];
  If[Head@cData == ToExpression["CountryData"]
    , Return["Invalid Country(" <> ctry <> ")"]];
  If[MatchQ[cData[[1, 2]], _Missing]
    , Return["Missing fraction data for " <> ctry]];
  leg = #[[1]] & /@ cData;
  dat = #[[2]] & /@ cData;
  PieChart[dat
   , ChartLegends -> leg
   , PlotLabel -> "Ethnic groups in " <> ctry
   ]
  ]

I invoke it thusly:

dumpEthn[#] & /@ CountryData["Asia"]

It produces a bunch of PieCharts.

When I print it is gives 50 *blank* pages. When I Save-As-PDF, I get
50 *blank* pages.

A single pie chart seems to print, i.e. dumpEthn["Iran"].

I reported this to WRI support.

Can anyone suggest any other work-around on this? In the excitement
about W|A, I wanted to show this to someone.

TIA and I am running 7.0.1/XPSP3.

Regards..

Roger Williams
Franklin Laboratory
http://www.meetup.com/The-San-Francisco-Math-Meetup-Group/


  • Prev by Date: Re: Parallel processing
  • Next by Date: TIFF file specification
  • Previous by thread: Re: formatting of string in input vs. output cells
  • Next by thread: Re: printing problem with very simple application