Services & ResourcesWolfram ForumsMathGroup Archive

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

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/

• Follow-Ups:
  • Re: printing problem with very simple application
    • From: Syd Geraghty <sydgeraghty@me.com>