I want to save some bullet gauges in PDF, as a dashboard, but what I obtain in the PDF has the numbers erased, and the Titles/Numbers erased as you can see here
when What Mathematica10 show is
Note that Mathematica save PDF well, as is showed if you don´t rotate the gauges.
The code is
DataFile = {{"Man", "First", 215, 230, 120, 80, 65}, {"Man", "Second",
240, 450, 180, 150, 114}, {"Woman", "First", 275, 450, 210, 190,
43}, {"Woman", "Second", 275, 275, 145, 134, 96}, {"Woman",
"Third", 200, 240, 20, 18, 12}}
NumeroPropiedades = Length[DataFile];
lonxitude =
Table[StringLength[DataFile[[i, 1]]], {i, 1, NumeroPropiedades}];
Max[lonxitude];
MaximoEscala = Max[Table[DataFile[[i, 4]], {i, 1, NumeroPropiedades}]];
rotate[gauge_] :=
Rotate[gauge /. Text[l_, r__] :> Text[Rotate[l, 270 Degree], r],
90 Degree]
(* copied from http://ow.ly/zdSc302jZEm *)
BulletTOTAL =
Table[BulletGauge[{DataFile[[i, 5]],
DataFile[[i, 4]]*0.75}, {DataFile[[i, 3]]}, {0, DataFile[[i, 4]],
DataFile[[i, 6]], DataFile[[i, 7]], MaximoEscala},
ImageSize -> Large,
GaugeLabels ->
Placed[Style[Rotate[DataFile[[i, 1]], 3 Pi/2], "Subsection",
Black], Right]], {i, 1, NumeroPropiedades}];
Labeled[Row[rotate /@
BulletTOTAL
, Spacer[20]],
Row[{Style["Monthly", 39, "Subtitle", Darker[Red]]}, Spacer[30]], Top]
================== SOLUTION ======================== **
Export
instead? $\endgroup$