MathGroup Archive 1999

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

Search the Archive

RE: Programmed PageBreaks

  • To: mathgroup at smc.vnet.net
  • Subject: [mg16479] RE: [mg16431] Programmed PageBreaks
  • From: "Jean-Marie THOMAS" <jmthomas at agat.net>
  • Date: Tue, 16 Mar 1999 03:59:38 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

This could be a start:
data=Table[Pi Random[],{5}];
Scan[
(CellPrint[Cell[TextData[{ToString at #}],"Output",PageBreakAbove->True]];
Plot[Cos[t+#],{t,0,2Pi}])&,data]

Hope this helps,


****************************************
Jean-Marie THOMAS
mailto:jmthomas at agat.net
Conseil et Audit en Ingenierie de Calcul
Strasbourg, France
http://www.agat.net
****************************************

-----Original Message-----
From: hanssen at zeiss.de [mailto:hanssen at zeiss.de]
To: mathgroup at smc.vnet.net
Subject: [mg16479] [mg16431] Programmed PageBreaks


Hi, MathGroup,

in an evaluation, I repeatedly print some derived results, show some plots
and so on
like this:
...
Print["headline of Mathematica-generated report"];
Print["result=",x];
LostPlot[....];
Plot[...];
Print["This line should go on a new page"];
Plot[...];

How can I add page breaks to this. Print["\012"]; does not work.
Until now, I have manually added pagebreaks above those cells,
from which I know, that they should go on a new page. I am looking
for a better way to achieve this.

kind regards

Dipl.-Math. Adelbert Hanszen




  • Prev by Date: Parametric plots from NDSolve
  • Next by Date: Re: RE: "f[x_]:= 2 x" vs. "f = 2 #&"
  • Previous by thread: Programmed PageBreaks
  • Next by thread: RE: Programmed PageBreaks