How can I print grouped cells with CellPrint ?
The closest thing I have to what I want to do is this
CellPrint[CellGroup[{TextCell["i","Item"],ExpressionCell[Defer[x^2;],"Input"]},1]]
But the cells aren't grouped.
$\begingroup$
$\endgroup$
Add a comment
|
1 Answer
$\begingroup$
$\endgroup$
3
Not pretty, but it works:
CellPrint[
CellGroup[{TextCell["i", "Item", CellTags -> "groupit"],
ExpressionCell[Defer[x^2;], "Input", CellTags -> "groupit"]}, 1]];
NotebookFind[EvaluationNotebook[], "groupit", All, CellTags];
FrontEndExecute[FrontEndToken["CellGroup"]];
SelectionMove[EvaluationNotebook[], After, Cell]
answered Feb 5, 2013 at 12:54
-
$\begingroup$ Thanks, this would be perfect if the grouped cells were closed, as the ExpressionCell typically contains big outputs in what I want to do. $\endgroup$– faysouCommented Feb 5, 2013 at 14:44
-
$\begingroup$ I found it, FrontEndExecute[FrontEndToken["OpenCloseGroup"]]; before SelectionMove $\endgroup$– faysouCommented Feb 5, 2013 at 14:48
-
$\begingroup$ Fyi I have incorporated your answer in my answer here mathematica.stackexchange.com/q/15134/66 $\endgroup$– faysouCommented Feb 5, 2013 at 15:06