如何在“工作”风格环境而不是“打印输出”中导出图形？

Question

我最近了解到Export in Mathematica uses by default the "Printout" screen style environment rather than "Working" when exporting to PDF。它有时导致FontSize fluctuations in the resulting PDF非常烦人。

试着举例：

Show[First@ImportString[ExportString[Style[T, 100], "PDF"], "PDF"], 
 Prolog -> Inset[Style[T, 100], FormatType -> StandardForm]]
Show[First@ImportString[ExportString[Style[T, 100], "PDF"], "PDF"], 
 Prolog -> 
  Inset[Style[T, 100, Magnification -> .8], 
   FormatType -> StandardForm]]

您可以看到导出的“T”具有笔记本中出现的“T”大小的80％。这是默认情况下调整"Printout"环境的方式。

有没有办法强制Export使用默认的"Working"环境？

P.S。出于某些原因，为“打印输出”环境设置Magnification->1的私有样式表不会影响Export。

Answer 1

解决方案似乎是：

SetOptions[$FrontEnd, PrintingStyleEnvironment -> "Working"]