Как экспортировать графику в "рабочий" стиль, а не "Распечатка"?

Недавно я узнал, что Export в Mathematica по умолчанию использует среду стиля экрана "Printout" вместо "Working" при экспорте в PDF. Иногда это приводит к FontSize колебаниям в результате PDF, которые очень раздражают.

Попробуйте, например:

Show[[email protected][ExportString[Style[T, 100], "PDF"], "PDF"], 
 Prolog -> Inset[Style[T, 100], FormatType -> StandardForm]]
Show[[email protected][ExportString[Style[T, 100], "PDF"], "PDF"], 
 Prolog -> 
  Inset[Style[T, 100, Magnification -> .8], 
   FormatType -> StandardForm]]

Вы можете видеть, что экспортируемый "Т" имеет 80% размера "Т", который появляется в записной книжке. Вот как по умолчанию настроена среда "Printout".

Есть ли способ заставить Export использовать среду "Working" по умолчанию?

P.S. По какой-то причине установка личной таблицы стилей с Magnification->1 для среды "Распечатка" не влияет на Export.

Ответы

Ответ 1

Решение выглядит следующим образом:

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