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 

Interesting Posts

ссылка на формулу excel для существующих записей столбцов

Макрос UpdateLink работает в режиме разработчика, но не работает с кнопки

Вставка большого объема данных в базу данных android sqlite?

формулу excel, чтобы поместить разные значения, если разные строки в ячейке

Как объявить и использовать публичные функции и подпрограммы в тексте рабочего листа

Как показать приглашение окна для загрузки файла excel?

R / XLL: интерфейс для вызова метода XLL в R

экспортировать данные в Excel

Копировать и вставлять столбцы между листами на основе Excel «Карта» или таблицы? – Дальнейшие автообновления ссылок на файлы?

Макрос VBA для добавления столбцов

Эффективные петли в VBA

Win32com не отправляет excel, говоря «Ошибка сервера»

Почему кастинг для двойного использования «String * 1» терпит неудачу? Будет ли CDbl (String) работать на всех системах?

Excel – позволяет сохранять как PDF, но не сохранять исходный документ

Укажите рабочую книгу при работе на листе в VBA

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