Try to use something like the following depending on the rasterization resolution you are seeking.
Export["fig1A.pdf", fig1A, "AllowRasterization" -> True, ImageSize -> 350, ImageResolution -> 600] This issue was previously discussed here and I am referring to the solution by Heike. Searching the site before posting a new question is the right thing to do.
