printCells[cells_] := RawBoxes@GridBox[
    First@Cases[
      ToBoxes@DocumentNotebook[
        Replace[cells,
         x_ :> RawBoxes[x],
         1]
        ],
      ItemBox[GridBox[x__, ___], ___] :>  x, {0, Infinity}
      ]
    ];