Postscript Graphics in Header - Mathematica 5.0
- To: mathgroup at smc.vnet.net
- Subject: [mg50485] Postscript Graphics in Header - Mathematica 5.0
- From: Peter Hahn <pg.hahn at arcor.de>
- Date: Tue, 7 Sep 2004 05:43:46 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello everybody,
With Mathematica 4.1, I used PageHeaders to insert the logo of my company into
my document printouts. I placed the logo as Postscript in an appropriate
cell, like this:
g = Graphics[{{RGBColor[0, 0, 1], Rectangle[{0, 0}, {0.9, 0.9}]},
RGBColor[1, 0, 0], Rectangle[{0.5, 0.5}, {1, 1}]}, ImageSize -> 72];
f = DisplayString[g];
SetOptions[EvaluationNotebook[], PageHeaders ->
{{None, Cell[GraphicsData["PostScript", f], "Graphics"], None},
{None, Cell[GraphicsData["PostScript", f], "Graphics"], None}}]
After Upgrading to Mathematica 5.0, this no longer works: Mathematica is
crashing with an "unknown software exception" when I try to print the
notebook. I'm using Mathematica 5.0 under Windows XP(German).
Does anybody has a clue why this happens?
Can anybody reproduce this bug?
Thanks a lot,
Peter