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