Grid[ArrayReshape[ Item[#, Background -> If[FreeQ[IntegerDigits@#, 3], White, Yellow]] & /@ Range@1000, {34, 30}], Dividers -> All] Export["1000-3.pdf", %]
The Grid looks fine on the screen in MMA. But when exported, it became this
The rest of the cells are all good part from the "fat" 1000.