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
- Будут писать пробелы, но не последний символ (VBA Excel)
- Перемещайтесь по диапазону DV и отправляйте на принтер
- Macro для печати только строк, которые имеют определенное значение в столбце specificc
- Devexpress DXGrid - печать / экспорт пользовательского стиля ячейки
- Печать нескольких типов документов с различными настройками страницы
- Печать VB6 через Excel и выбор одного из двух принтеров
- Печать с помощью excel и java или других
- Разрешить сохранение PDF в Excel 2007/2010
- Печать одного и того же рабочего листа несколько раз в одном задании
- Excel печатать страницы в листе на основе значения на странице
- Получить Python для печати в pdf / изображение выбранных ячеек в MS Excel
- ClosedXml не копирует настройки принтера в электронную таблицу
- Печать файла Excel
Установка страницы и масштабирование исключают друг друга. Попробуйте установить:
.Zoom = False