I have a Mathematica 6 simulation that prints out rows of results now-and-then with a command similar to the following (with different numbers obviously):

```
Print[GridBox[{{Cell["123456", Background->Pink],Cell["789101",Background->Pink]}}] // DisplayForm];

```

As you can well imagine this results in a table with an arbitrary number of rows as the simulation progresses. My problem is how to get the pink boxes printed by each statement above to 'touch' the one below so that I get pink 'columns' of numbers (in other words for the cells created by the above Print statements, I want to remove all inter-cell spacing). If you run something like this:

```
Print[GridBox[{{Cell["123456", Background->Pink],Cell["789101",Background->Pink]}}] // DisplayForm];
Print[GridBox[{{Cell["123456", Background->Pink],Cell["789101",Background->Pink]}}] // DisplayForm];
Print[GridBox[{{Cell["123456", Background->Pink],Cell["789101",Background->Pink]}}] // DisplayForm];

```

together in one cell you'll see what I mean. So far I have tried using CellMargins (for eg: CellMargins->{{20,20},{0,0}}) but to no avail. The only way I've been able to get what I want is to set CellMargins within the Option Inspector by first selecting the cells, going to Format -> Option Inspector -> Cell Options -> Display Options and from there reseting CellMargins to something like {{60,Inherited},{-1,-1}. I obviously would prefer to do this with code,... Is that possible?

Terry