SHARE
TWEET

Untitled

a guest Oct 28th, 2013 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. printCells[cells_] := RawBoxes@GridBox[
  2.     First@Cases[
  3.       ToBoxes@DocumentNotebook[
  4.         Replace[cells,
  5.          x_ :> RawBoxes[x],
  6.          1]
  7.         ],
  8.       ItemBox[GridBox[x__, ___], ___] :>  x, {0, Infinity}
  9.       ]
  10.     ];
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top