Excel игнорирует настройки печати VBA

По какой-то причине Excel игнорирует мое правило «Fit 1 by 1» здесь. Я попытался настроить масштабирование, но все, что я делаю, похоже, не работает. Любые идеи приветствуются! Спасибо!

Private Sub CommandButton1_Click() Dim Sel_Manager As String 'Specify headers to be repeated at the top With ActiveSheet.PageSetup .PrintTitleRows = "$5:$9" .PrintTitleColumns = "$B:$M" .Orientation = xlLandscape .Zoom = 70 .FitToPagesWide = 1 .FitToPagesTall = 1 End With 'Manager selection through simple Inputbox Sel_Manager = ComboBox1 'Insert autofilter for worksheet Cells.Select Selection.AutoFilter 'Select manager defined in inputbox ActiveSheet.Range("B14", Range("M14").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager 'Select range to be printed and specify manager in filename ActiveSheet.Range("B14", Range("M14").End(xlDown)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Sel_Manager + ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True ActiveSheet.ShowAllData End Sub 

Установка страницы и масштабирование исключают друг друга. Попробуйте установить:

 .Zoom = False 
  • Как включить сшиватель при печати?
  • Excel 2016 Mac ExportAsFixedFormat в PDF отправляет на принтер
  • Печать определенных вкладок
  • Как распечатать (по принтеру) Лист Excel с использованием Apache POI
  • Как объединить 3 команды VBA в одну? Установите диапазон печати без абсолютной ссылки
  • расширенный активный принтер excel vba
  • Компоненты ReactJS для экспорта в формате PDF, экспорт и печать Excel
  • как распечатать файл Excel через vb6?
  • Печать выбранных рабочих листов в файлах excel в pdf в python
  • Как назначить значение ячейки для значений из диапазона, напечатать в формате pdf с именем значения (необходимость очистки)
  • VBA - печать нескольких именованных диапазонов с одного листа в указанном порядке
  • Interesting Posts

    Экспорт в Excel с помощью приложения Vb.net + Windows

    Динамический ввод из ячеек

    count количество ячеек с определенным типом данных в MS Excel

    Вырезать и вставить все столбцы, если ячейка равна «Fri» в диапазоне

    Как разрезать данные Excel с помощью win32com в Python (3.6)

    использовать переменную в формуле excel

    Фильтрация строк в скрытом режиме (код VB)

    Проверяйте сгруппированные строки в excel с помощью c #

    Powerpivot и макросы – изменение колонки чтения

    Excel 2016 против 2010 – часы реального времени не освежающие

    Заполнение ячеек в Excel 2007 на основе содержимого других ячеек в строке

    Не удалось открыть файл excel в clojure – только записи DEFLATED могут иметь дескриптор EXT

    Applescript: невозможно копировать данные даты и сообщения из Outlook в Excel

    Открыть несколько файлов XL, захватить данные, а затем записать в Pandas / Output в один файл Excel

    В том же столбце в excel, как я исключаю каждую ячейку, которая начинается с определенной буквы,

    Давайте будем гением компьютера.