Re: printing problem with very simple application
- To: mathgroup at smc.vnet.net
- Subject: [mg100279] Re: [mg100265] printing problem with very simple application
- From: Syd Geraghty <sydgeraghty at me.com>
- Date: Sun, 31 May 2009 06:32:04 -0400 (EDT)
- References: <200905300100.VAA23700@smc.vnet.net>
Hi Roger,
if you wrap "dumpEthn[#] & /@ CountryData["Asia"]" with Column then
SaveAs pdf I believe you will get what you want, a 27 page pdf
document with two charts per page.
This works for me.
Column[dumpEthn[#] & /@ CountryData["Asia"]]
Cheers ...Syd
Syd Geraghty B.Sc, M.Sc.
sydgeraghty at mac.com
Mathematica 7.0.1 for Mac OS X x86 (64 - bit) (18th February 2009)
MacOS X V 10.5.6
MacBook Pro 2.33 GHz Intel Core 2 Duo 2GB RAM
On May 29, 2009, at 6:00 PM, congruentialuminaire at yahoo.com wrote:
> 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/
>
- References:
- printing problem with very simple application
- From: congruentialuminaire@yahoo.com
- printing problem with very simple application