Printing grouped cells

Question

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.

Answer 1

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]

Answer 2

Documentation of CellGrouping under "possible issues", says that the automatic grouping of a document overrides your cell grouping - at least in v8. If you try

CreateDocument[
 CellGroup[{TextCell["i","Item"],ExpressionCell[Defer[x^2;],"Input"]},1]
,CellGrouping -> Manual]

the new document will have the cells grouped (but I don't know if that's what you are after or if changing the CellGrouping of a notebook from the notebook itself is possible).