Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Колонтитул по нескольким условиям
 
#1
30.06.2026 09:47:46
Добрый день.
Прошу помочь в решении проблемы с печатью колонтитулов с несколькими условиями.
  1. Печать верхнего колонтитула из ячейки B1 только на первом листе.
  2. Печать нижнего колонтитула из ячейки А1 на всех страницах, только когда документ более двух страниц.
Изменено: Sambo - 30.06.2026 10:11:25
 
 
 
#2
30.06.2026 09:51:02
Лучше напишите как должен работать макрос, а не то, что он у Вас не работает
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
30.06.2026 10:12:09
Изменила свой запрос. Может так будет правильно.
 
 
 
#4
30.06.2026 11:37:42
Удалите все ручные настройки колонтитулов
В модуль ЭтаКнига
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.PrintCommunication = False
With ActiveSheet.PageSetup
  .DifferentFirstPageHeaderFooter = True
  .CenterHeader = ""
  .FirstPage.CenterHeader.Text = ActiveSheet.Range("B1")  
  If .Pages.Count > 2 Then
    .CenterFooter = ActiveSheet.Range("A1")
  Else
    .CenterFooter = ""
  End If
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
01.07.2026 06:59:16
Спасибо за макрос.  
Изменено: Sambo - 01.07.2026 07:11:11
 
 
 
#6
01.07.2026 07:21:18
На первой странице у меня не печатает нижний колонтитул. Можно это исправить?
 
 
 
#7
01.07.2026 07:50:27
Из Вашего файла
Цитата
нижний колонтитул берется из ячейки А1 меняется на всех страницах при количестве страниц в документе более двух.
Если в документе менее 2-х страниц - нижний колонтитул не печатается. Как просили

Получается нижний колонтитул нужно печатать всегда?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
01.07.2026 08:28:07
Цитата
Печать нижнего колонтитула из ячейки А1 на всех страницах, только когда документ более двух страниц.
Его нужно печатать на всех страницах документа, если страниц в документе более двух. Если одна или две страницы в документе - нижний колонтитул не печатается
 
 
 
#9
01.07.2026 08:29:20
Приложите файл, в котором на одном листе 1 или 2 страницы, а на другом листе более 2 страниц
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
01.07.2026 11:11:27
Упс(( приложила не тот файл. И сижу жду у моря погоды.
Сейчас приложила файл с двумя вкладками на 1-2 страницы текста, и более 2-х страниц
Шрифт у колонтитула должен быть Times New Roman, размер 12, цвет K808080
Помогите, пожалуйста.
И еще возник вопрос при работе с данным макросом. Колонтитулы в форме нужно каждый раз очищать при печати. Можно очищение сделать автоматическим?
Изменено: Sambo - 05.07.2026 05:49:49 (приложен не тот файл)
 
 
 
#11
05.07.2026 13:37:48
См.файл(ы)
При печати, на предпросмотр не обращайте внимания
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
07.07.2026 04:59:36
Спасибо, огромное. все работает. Закрыла  "фабрику по производству черновиков"))).Буду экономить бумагу и чернила).... а самое главное, свои нервы
 
 
 
Страницы: 1
Читают тему
Наверх