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

Недавно я узнал, что Export in 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" среду?

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

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

     SetOptions[$FrontEnd, PrintingStyleEnvironment -> "Working"] 
    Давайте будем гением компьютера.