I have updated my OS to macOS 10.14 Mojave. I found whenever I export a plot into a PDF file, the font of the label and ticks are automatically replaced into a bold font. I use Mathematica 11.3.
Any idea to fix it?
In the notebook, the figure looks like
In the exported PDF file, it becomes
Too long for a comment: I wrote MMA support and they got back to me with this answer:
It does appear as though there is an incompatibility between Mathematica 11.3 and macOS Mojave in regards to exporting PDFs. I was able to reproduce the issue in this environment, but not with earlier versions of macOS.
I have found one potential workaround, which instead of Exporting the graphics as a PDF, might be to save the graphic as a PDF from the Print dialog. To do so:
1) Create your graphic in the notebook
2) Select the graphic, go to File -> Print Selection, and from the lower left of the dialog, select "Save as PDF"
3) Use the Save dialog to save the created PDF somewhere on your computer.
This seems to prevent the extra bold fonts from my tests.
We are working to address this issue in our next release.
Here's a way to use the OS-level Print > Save As PDF mechanism to get proper PDFs out, the only issue is that it's a truly horrible hack:
getPrintNotebookExpr[expr_] :=
Switch[
Head@expr,
Notebook,
expr,
Cell,
getPrintNotebookExpr@Notebook[{expr}],
BoxData,
getPrintNotebookExpr@Cell[expr, "Output"],
TextData,
getPrintNotebookExpr[Cell[expr, "Text"]],
_,
getPrintNotebookExpr[BoxData@ToBoxes@expr]
];
getExprDims[expr_] :=
Rasterize[expr, "RasterSize"];
Options[printPDFExport] =
{
"MediaBoxPadding" -> 3,
"ScratchFile" -> "~/Desktop/fig.pdf",
"BasePageSize" -> {612, 792},
"PrinterPointScaling" -> .72
};
printPDFExport[
pdf_String?(StringEndsQ[#, ".pdf"] &),
expr_,
ops : OptionsPattern[]
] :=
Module[
{
nb = StringReplace[pdf, ".pdf" -> ".nb"],
nbex,
dims,
exists,
nbobj,
targetFile = OptionValue["ScratchFile"],
openR,
str,
openW,
pdfMarginL,
pdfMarginB,
mag = OptionValue["PrinterPointScaling"],
pageSize,
initSize = OptionValue["BasePageSize"],
pageDiff,
boxPad = OptionValue["MediaBoxPadding"]
},
nbex = getPrintNotebookExpr[expr];
dims = getExprDims[expr];
exists = FileExistsQ@nb;
pageSize = mag*dims;
pageDiff = initSize - pageSize;
{pdfMarginL, pdfMarginB} = Floor[pageDiff/2];
nbobj =
CreateDocument[nbex,
{
Visible -> False,
WindowSize -> dims,
PrintingOptions -> {
"FirstPageFooter" -> False,
"FirstPageHeader" -> False,
"RestPagesFooter" -> False,
"RestPagesHeader" -> False,
"PageSize" -> pageSize,
"PaperSize" -> pageSize/mag,
"PrintingMargins" -> {{0, 0}, {0, 0}}(*Floor[{{pdfMarginL,
0}, {pdfMarginB, 0}}*.72]*)
},
WindowElements -> None,
NotebookFileName -> nb,
StyleDefinitions ->
Notebook[{
Cell[StyleData[StyleDefinitions -> "Default.nb"]],
Cell[
StyleData[All],
CellMargins -> {{0, 0}, {0, 0}},
ShowCellBracket -> False
]
}],
WindowTitle -> FileBaseName[pdf]
}
];
NotebookPrint[nbobj, Interactive -> True];
NotebookClose[nbobj];
If[! exists, Quiet@DeleteFile[nb]];
If[FileExistsQ@targetFile,
RenameFile[targetFile, pdf, OverwriteTarget -> True];
openR = OpenRead[pdf, BinaryFormat -> True];
str = ReadString[pdf];
Close[openR];
openW = OpenWrite[pdf, BinaryFormat -> True];
WriteString[pdf,
StringReplace[str,
Shortest["/MediaBox " ~~ "[" ~~ __ ~~ "]"] :>
"/MediaBox [ " <>
StringRiffle[
Join[
{pdfMarginL, pdfMarginB} - boxPad,
{pdfMarginL, pdfMarginB} + pageSize + boxPad
]
] <> " ]"]
];
Close[openW];
pdf,
$Failed
]
]
You must save the file from Save as PDF to the path specified in the "ScratchFile" option, which has a horribly botched page size by default no matter what I try. So then I literally edit the PDF text so the "MediaBox" setting is the right size.
As I say, it's a terrible hack, but until WRI pushes a paclet to fix this we're stuck.
On the plus side, this does work, so I don't need to find a way to revert my OS upgrade to get working PDFs again.
What solved the problem for me was deactivating the bold font weight:
Close Mathematica -> go to Applications -> Font Book -> deactivate the Bold font weight by selecting "Disable ..." from the options for "Bold" in the dropdown menu (see screenshot attached below).
After exporting your figures, you can just reactivate the font weight.
I experienced the same issue using mathematic 11.1.1. By changing the BaseStyle of the plot to bold, I get normal fonts by exporting as pdf. For example:
BaseStyle -> {FontFamily -> "Latin Modern Roman", FontSize -> 9, Bold}
Not sure if this issue is solved now in v12, but after struggling with using few suggestions here, I found that exporting EPS and than converting to PDF using e.g. epstopdf, works ok for me.
