Re: Druckausgabe

[Rolf Mertig <rolf@XXXXXXX.com>]

Hallo,
hier den Vorschlag von Jens-Peer etwas weiter geführt:

CP::usage="CP[plotcommand] evaluiert plotcommand und 
produziert eine zentrierte Textzelle.";
SetAttributes[CP, HoldFirst];
CP[g_, cellfun_:CellPrint] := Block[{pl}, 
     pl = Block[{$DisplayFunction = Identity}, g];
     If[MatchQ[pl, _Graphics | _GraphicsArray],
     cellfun[Cell[BoxData[Cell[GraphicsData["PostScript", DisplayString[pl]],     
     "Graphics", GeneratedCell -> False,
     CellAutoOverwrite -> False, ImageMargins -> {{0, 0}, {0, -1}}, 
     ImageRegion -> {{0, 1}, {0, 1}}]], "Text",
     TextAlignment -> Center]]]]

CP[Plot[Cos[x], {x, 0, 1}]]

CP[GraphicsArray[{Plot[Sin[x],{x,0,3}],Plot[Cos[x],{x,0,3}]}]]

CP[Plot[x,{x,0,4}], NotebookPut[Notebook[{#}]]&]

Gruss,

Rolf Mertig
--
http://www.mertig.com
Mertig Consulting
Berlin


On Montag, 4. November 2002 12:37, Jens-Peer Kuska wrote:
> Hallo,
>
> ich weiss nicht ob Dir das gef"allt,
> aber Du must eine Text-Zelle mit BoxData[]
> erzeugen und dieser Text-Zelle  die Option
>  TextAlignment->Center geben.
>
> Das sieht dann
>
> Cell[BoxData[Cell[GraphicsData["PostScript", "\<\
> %!
> %%Creator: Mathematica
> %%AspectRatio: .61803
> %%%% bla bla noch mehr PostScript
> %%%% SCHIPP SCHNAPP
> %%%%
> % End of Graphics
> MathPictureEnd
> \
> \>"], "Graphics",
>       GeneratedCell->False,
>       CellAutoOverwrite->False,
>       ImageSize->{288, 177.938},
>       ImageMargins->{{0, 0}, {0, -1}},
>       ImageRegion->{{0, 1}, {0, 1}}]], "Text",
>   TextAlignment->Center]
>
> Gruss
>   Jens
>
> Jochen Haller wrote:
> > Hallo Liste!
> >
> > Hab eine kleine Frage zur Druckausgabe.
> >
> > Ich habe ein Graphik welche ich drucken möchten. Was muß ich einstellen,
> > damit die Graphik zentriert gedruckt wird (unter Ausnutzung des gesamten
> > Blattes) ohne daß ein Teil der Graphik abgeschnitten wird (so wie bei
> > mir geschehen)?
> >
> > MfG
> >
> > Jochen Haller
> >
> > --------------------------------------------
> > Dipl.-Kfm. Jochen Haller
> >
> > Institut für Volkswirtschaftslehre und Recht
> > Abteilung für Mikroökonomik
> > Keplerstraße 17, 10. OG
> >
> > 70174 Stuttgart
> >
> > 0711 121-3557
> > 0711 121-2450 (FAX)
> >
> > haller@XXXXXXX.de
> >
> > http://www.sofo.uni-stuttgart.de/mikro/haller.html