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

Question

Я недавно узнал, что Export в Mathematica по умолчанию использует "Printout" среда стиля экрана, а не "Working" при экспорте в PDF. Это иногда приводит к FontSize колебания в результирующем 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" имеет 80% размера "T", который появляется в блокноте. Вот как "Printout" среда настроена по умолчанию.

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

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

Answer 1

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

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