Как добавить цвет фона в колонтитулы листа Excel при печати?
При работе в Excel добавление колонтитулов придаёт печатным документам профессиональный вид, позволяя включать важную информацию — например, номера страниц, имена файлов или логотипы компаний. Хотя встроенные функции Excel поддерживают вставку текста и изображений в колонтитулы для отображения при печати, вы можете захотеть дополнительно выделить эти разделы с помощью цвета фона — чтобы улучшить читаемость или обеспечить соответствие фирменному стилю. Однако на данный момент Excel не предлагает прямого способа применять цвет фона к областям колонтитулов в распечатке. Это может вызывать раздражение, если вы стремитесь визуально отделить колонтитулы от основных данных на печатной странице. Ниже представлены практичные обходные решения, позволяющие имитировать цветные колонтитулы в ваших распечатках Excel с учётом различных задач и уровня технической подготовки.
Добавьте Цвет фона в колонтитул с помощью Цвет заполнения
Добавьте Цвет фона в колонтитулы с помощью VBA
Добавьте Цвет фона в колонтитул с помощью Цвет заполнения
Этот подход заключается в форматировании ячеек листа для визуального воссоздания цветного колонтитула. Поскольку настоящие колонтитулы, создаваемые через Разметка страницы, не поддерживают фоновый цвет, форматирование верхних и/или нижних строк становится эффективной альтернативой. Метод особенно удачен, когда ваша главная цель — усилить визуальное разделение или обеспечить соответствие фирменному стилю печатных листов, а содержимое колонтитулов можно разместить непосредственно в строках листа вместо использования стандартных печатных колонтитулов.
К недостаткам этого метода относятся невозможность использовать динамические поля колонтитулов (например, номера страниц) и необходимость вручную повторять эти действия для каждого листа.
1. Щёлкните Разметка страницы > Настройки страницы.
Прежде чем продолжить, важно установить все поля на 0, чтобы максимально использовать рабочее пространство листа и обеспечить плотное прилегание цветных областей к верхнему и/или нижнему краю каждой печатной страницы. Это создаст эффект настоящего фонового колонтитула при печати документа.
2. В диалоговом окне Настройки страницы перейдите на вкладку Поля и введите 0 в поля Верхнее, Верхний колонтитул, Нижнее и Нижний колонтитул. Это гарантирует, что Excel не зарезервирует место для встроенных колонтитулов, а содержимое листа будет расположено в самом верху и в самом низу печатной страницы.
3. Нажмите ОК, чтобы применить изменения полей. Выделите первую строку листа (она будет визуально выполнять роль колонтитула), затем перейдите в меню Главная > Объединить и выровнять по центру, чтобы объединить все столбцы этой строки в одну ячейку. Так вы создадите широкую область для текста колонтитула и заливки фона.
Совет: Для документов с несколькими столбцами убедитесь, что вы выделили и объединили правильный диапазон ячеек, охватывающий всю область ваших данных.
4. С выделенной объединённой ячейкой щёлкните кнопку Цвет заполнения (значок ведра с краской) на вкладке Главная и выберите нужный цвет фона из палитры. Это добавит видимую цветную полосу в верхней части листа, имитирующую фон колонтитула.
5. Если вы также хотите добавить цветной нижний колонтитул, прокрутите до последней строки вашего диапазона печати, выделите её и повторите шаги по объединению ячеек и применению цвета заливки, чтобы создать цветную область внизу страницы.
Для наилучшего результата рекомендуется добавлять текст собственного колонтитула непосредственно в эти цветные и объединённые области. При необходимости вы можете настроить размер шрифта, выравнивание или форматирование в соответствии с требованиями печати. Имейте в виду, что этот метод задаёт колонтитулы только в видимой области листа. Если ваш документ занимает несколько страниц, возможно, вам придётся повторять эти шаги форматирования для каждой печатной страницы вручную или использовать функцию «Верхняя строка» в Настройки страницы — но только для верхних колонтитулов.
Теперь, когда вы перейдёте в меню Файл > Печать или нажмёте Ctrl + P, вы увидите цветную полосу в верхней (и/или нижней) части страницы предварительного просмотра — она будет имитировать фон колонтитула.
Если цвет отображается некорректно в режиме предварительного просмотра, дважды проверьте, совпадают ли настройки принтера и диапазон листа, а также убедитесь, что область печати охватывает ваши отформатированные строки.
Добавьте Цвет фона в колонтитулы с помощью VBA
Для сложных листов или многостраничных документов, где требуется автоматизировать создание цветных областей колонтитулов на каждой печатной странице, воспользуйтесь макросом VBA — он быстро добавит эти эффекты по всему листу. Данный VBA-скрипт вставляет предопределённые цветные строки в начало и конец каждого печатного диапазона, имитируя внешний вид цветных колонтитулов в распечатке.
Этот подход идеально подходит для крупных листов, унаследованных отчётов или ситуаций, когда необходимо обеспечить единообразное оформление на множестве страниц. Однако он требует включения макросов и определённого опыта работы с интерфейсом VBA. Имейте в виду: это решение по-прежнему не затрагивает настоящие колонтитулы Excel, а имитирует печать за счёт прямого изменения содержимого листа.
1. Нажмите Alt + F11, чтобы открыть окно редактора Microsoft Visual Basic для приложений. Если вы впервые используете VBA, сначала может потребоваться включить вкладку Разработчик.
2. В окне VBA выберите Вставка > Модуль. В появившуюся область кода нового модуля скопируйте и вставьте следующий код:
VBA: Добавление Цвет фона в колонтитулы
Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
Dim I, J As Long
Dim xRg As Range
Dim xRow, xCol As Long
Dim xRows, xCols As Long
Dim xDivRow, xDivCol As Long
Dim xTopArr, xButtArr As Variant
Dim PageSize1, PageSize2 As Integer
On Error Resume Next
xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
PageSize1 = 46
PageSize2 = 8
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.BlackAndWhite = False
End With
Set xRg = ActiveSheet.UsedRange
If xRg Is Nothing Then Exit Sub
xRows = xRg(xRg.Count).Row
xCols = xRg(xRg.Count).Column
If xRows < 46 Then xRows = 46
If xCol < 8 Then xCol = 8
xDivRow = Int(xRows / PageSize1)
xDivCol = Int(xCols / PageSize2)
If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
If xDivRow = 0 Then xDivRow = 1
If xDivCol = 0 Then xDivCol = 1
Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
xRow = 1
xCol = 1
Cells.PageBreak = xlPageBreakNone
For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
For J = 1 To xDivCol * PageSize2 Step PageSize2
Cells(I, J).Resize(1, PageSize2) = xTopArr
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Rows(I + PageSize1 + 1).PageBreak = xlManual
Columns(J + PageSize2).PageBreak = xlManual
Next
Next
End Sub
3. Нажмите F5 или щёлкните кнопку Выполнить на панели инструментов VBA, чтобы запустить код. Макрос автоматически вставит цветные строки в начале и конце каждого диапазона страницы в соответствии с заданными параметрами PageSize1 (количество строк на страницу) и PageSize2 (количество столбцов на страницу). Первая и 47-я строки на каждой «странице» будут заполнены указанным цветом и предопределённым текстом, создавая при предварительном просмотре или печати листа эффект «имитации» колонтитулов.
Вы можете дополнительно настроить этот макрос под свои нужды. Например, чтобы изменить содержимое колонтитулов, отредактируйте текст в следующих строках:
xTopArr = Array(«Top Left», «», «», «Top Center», «», «», «», «»)
xButtArr = Array(«Bottom Left», «», «», «Bottom Center», «», «», «», «»)
Если вы хотите другой Цвет фона, измените значение ColorIndexздесь:
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex =34
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex =34
Макрос использует стандартные коды цветов Excel. Чтобы ознакомиться с доступными цветами, обратитесь к справочнику ColorIndex от Microsoft или воспользуйтесь палитрой цветов Excel, чтобы подобрать значения, соответствующие вашему фирменному стилю или дизайнерским предпочтениям.
Примечание: обязательно сохраните свою работу перед запуском макросов VBA — отменить их действия стандартной командой «Отменить» невозможно. Кроме того, поскольку этот макрос изменяет содержимое листа, убедитесь, что ваша область печати настроена правильно, и скорректируйте параметры PageSize1 и PageSize2 в соответствии с вашими требованиями к формату бумаги и макету. Метод добавляет дополнительные строки и может сместить существующие данные вниз, поэтому после выполнения макроса обязательно проверьте макет.
Если при печати возникают проблемы с отображением цветных областей — например, цвет отсутствует или область обрезается, — убедитесь, что в разделе «Расширенные настройки» вашего принтера включена опция «Печать цвета фона», а также проверьте корректность настройки «Области печати листа». Оба подхода — использование цвета заливки и VBA — требуют особого внимания к параметрам «Объединённые ячейки» и «Диапазон печати», поскольку их неправильная настройка может привести к смещению или частичному окрашиванию.
Выберите решение, которое наилучшим образом соответствует версии Excel, макету страницы, сложности требований к колонтитулам и вашему приоритету — автоматизация или полный контроль над оформлением. Цветовое выделение колонтитулов идеально подходит для презентаций, титульных страниц и фирменных распечаток, когда содержимое колонтитулов не должно динамически изменяться на разных страницах.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек