It should be possible using the "AllowRasterization"
option, like this:
Export["~/Desktop/g.eps", g, "EPS", "AllowRasterization" -> False]
But it doesn't work. I assume it is a bug.
Regardless of this, my advice is not to try to do this. In earlier versions this was definitely possible, but the quality of the output left a lot to be desired. The files were huge and the seams between the polygons were visible. I completely understand why you would want a vector output. I tried to do this myself in the past. Based on that experience, I think the best approach is to rasterize and prepare figures to size:
Decide in advance for your desired print size, and choose the dimensions and resolution accordingly. You will get smaller files, better quality (when viewed at appropriate size) and much faster rendering.
Even GL2PS, which produces better quality vector output for 3D graphics than Mathematica ever has, creates files which often look problematic and have rendering artefacts. (Also, your example has many more polygons than those GL2PS samples, and is a lot more problematic to render due to the mesh that mustn't be obscured by the surface. I am very skeptical about how well even GL2PS could handle it.)