Re: StylePrint problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg20512] Re: [mg20402] StylePrint problem*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 27 Oct 1999 02:05:07 -0400*Sender*: owner-wri-mathgroup at wolfram.com

Dana wrote: >problems. >If I know that I am going to do 30+ problems at the end of a chapter, I >want to avoid typing in the text..Problem #1, Problem #2, etc > >I found this example in the "Tour of Mathematica" section of "The >Mathematica Book." > >Do[StylePrint["Problem # " <> ToString[i], "Section"], {i, 10}] > >Which works...kind of. After the above prints out correctly, I move the >cursor between say Problem #4, and Problem #5 to begin solving Problem #4. >As soon as I hit enter, all the output from Problem #5, down to the last >one is deleted! > >Does anyone do anything similar? Is there another command that I should be >using instead. I have looked for a long time. Thank you for any insight / >solution. Dana > This seems to work: Do[CellPrint[ Cell["Problem # " <> ToString[i], "Section", CellAutoOverwrite -> False]], {i, 10}] David Park djmp at earthlink.net http://home.earthlink.net/~djmp/