Problem when exporting 3d plots to .EPS [closed]

Question

A journal editor expects high-quality 3D plots (vector files such as .eps, .svg or .pdf) for my article. So, I'm trying to export 3D plots in EPS format.

I know that there are many similar posts on this site. For example; 1 2 3 4 5 6 etc. So I've been reading the posts and have been applying the suggestions for days.

Yes, I can export the 3d plots as .eps. But unfortunately, they have not high quality or sharpness. They are so blurry. I have no choice but to post here.

I use Wolfram Mathematica 12.3 on Windows 10. (People asking similar questions generally use either Mac OS or previous versions of Mathematica)

Question 1. Is the problem originated from the version that is Mathematica 12.3 (or Windows 10)? Which version is ok?

Question 2. Shall I use the following mesh grid plot instead of Plot3D ? Or which Plot command do you suggest?

For example;

Plot1=Plot3D[x*Exp[-x^2 - y^2], {x, -2, 2}, {y, -3, 3}, PlotRange -> All,ColorFunction -> "Rainbow", PlotTheme -> "Detailed"]

or

meshgrid[x_List, y_List] := {ConstantArray[x, Length[x]], 
  Transpose@ConstantArray[y, Length[y]]}
  {xx, yy} = meshgrid[Range[-2, 2, .1], Range[-4, 4, .2]];
    c = xx*Exp[-xx^2 - yy^2];    
    pts = Flatten[{xx, yy, c}, {2, 3}];
    Plot2=ListPlot3D[pts, PlotRange -> All, AxesLabel -> Automatic, 
     ImagePadding -> 20, Mesh -> 35, InterpolationOrder -> 2, 
     ColorFunction -> "Rainbow", PlotTheme -> "Detailed"]

Solving the problem is very crucial for me and many Mathematica users.

Any help or suggestions are appreciated.

P.S. When I export the figure using the following code: Export["figure.eps", Plot1, ImageResolution -> 800]

I get the following results (It is not bad, but it's still blurry.) (Zoom %1200) When I export the same plot using Matlab, it gives an excellent .eps image as follows: (Zoom %1200)
In Mathematica, how to export/print/save like the following high-quality 3D .eps figures?