Сам спросил сам ответил, это часть из ответа:
Options.UpdateFieldsAtPrint = False 'меню сервис параметры печать режим, галочка - обновлять поля перед печатью
Options.UpdateLinksAtPrint = False 'меню сервис параметры печать режим, галочка - обновлять связи перед печатью
Options.PrintHiddenText = False 'меню сервис параметры печать печатать, галочка - скрытый текст
Options.PrintFieldCodes = False 'меню сервис параметры печать печатать, галочка - коды полей
А записывать самому макрос, там много лишних строк.