getting data written to notebook to look nice

*To*: mathgroup at smc.vnet.net*Subject*: [mg121286] getting data written to notebook to look nice*From*: Phil Hammond <phil at hammondo.org>*Date*: Wed, 7 Sep 2011 05:41:08 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

With the command: NotebookWrite[nbQuiz, ToBoxes[Row[{probNum, OutputForm[". "], HoldForm @@ {expr} /. List -> Plus}]]] I am getting the following to appear in the nbQuiz notebook: 1. x - 5y + 5x + 2y + 6x which is actually the text I want. What's actually there, apparently, is: Row[{1, OutputForm[". "], \!\(\* TagBox[ RowBox[{"x", "-", RowBox[{"5", " ", "y"}], "-", RowBox[{"5", " ", "x"}], "+", RowBox[{"2", " ", "y"}], "+", RowBox[{"6", " ", "x"}]}], HoldForm]\)}] But it looks crummy. Question: how do I make it look like math a la TraditionalForm? A broader question: I've been making my high school math tests & quizzes (up through Calculus) for years using LaTeX and am trying to convert to Mathematica where I think I can generate multiple versions with solutions, plots, and so on. However this is going very slowly; a few hours just to get the next tiny step. Is there a Mathematica reference that is oriented rather specifically toward what I'm trying to do? Any advice would be greatly appreciated. P Hammond