Колонтитулы

[KNatalia]

Всем добрый день!
Подскажите, пожалуйста, как быть в случае, если у нас в файле 30 и более страниц, мне нужно, чтобы на листе проставлялись колонтитулы в самом низу страницы, при этом, когда прописываешь колонтитулы в виде
стр. &[Страница] из &[Страниц] в самом колонтитуле прописывалось не 1 страница из 30 страниц, а повторялись следующие действия:
1 стр из 4 страниц
2 стр из 4 страниц
3 стр из 4 страниц
4 стр из 4 страниц
1 стр из 4 страниц
2 стр из 4 страниц
3 стр из 4 страниц
4 стр из 4 страниц
и так далее по всему файлу

То есть в макросе я так понимаю должен быть цикл, но как сделать это я не представляю.

Подскажите, как быть?
С уважением, Наталья

[EducatedFool]

То есть в макросе я так понимаю должен быть цикл, но как сделать это я не представляю.

Макрос тут не поможет, если Вы намерены использовать именно колонтитулы - нельзя установить разные колонтитулы для страниц одного листа Excel (хоть вручную, хоть программно)

Могу посоветовать 2 варианта:

1) Перед печатью макросом разбиваете печатаемый лист на несколько листов.
На каждом листе - стандартный колонтитул типа 1 стр из 4 страниц
Поскольку макрос сформирует несколько листов с тем расчётом, что данных на каждом из временных листов будет не более 4-х печатных страниц, требуемый результат будет достигнут.

2) Вообще не использовать колонтитулы.
Макросом добавляем на лист пустые строки, в которые тем же макросом заносим значения типа 3 стр из 4 страниц (для каждой печатной страницы - своя строка)

PS: Макросы эти писать я не буду - я лишь предложил варианты решения.

[KNatalia]

Спасибо за подсказку! Очень благодарна

[Teslenko_EA]

Здравствуйте Наталья.
позволю себе добавить "подсказку"
"...должен быть цикл.." - никаких циклов, т.к. колонтитулы задаются единожды в свойствах листа, но если в Excel есть проблемы с "ручной" установкой колонтитула, попробуйте выполнить установку колонтитула в коде:
Sheets("Лист1").PageSetup.CenterFoo ter = " стр.&P из &N"
Колонтитул задается строкой содержащей спец. команды &P и &N, и при "проблемах" с колонтитулами, возникающим по многим причинам (национальные настройки, некорректный шаблон,...), "верные" команды с помощью кода попадают в свойства листа, соответственно правильно интерпретируются и колонтитулы отображаются верно. Этой командой строку колонтитулов можно менять динамически, в процессе работы.
Евгений.

[KNatalia]

Евгений, спасибо Вам.

[EducatedFool]

Почему же, вполне допустим вариант и с циклом - ещё одну идею реализации предложили на соседнем форуме:

Сообщение от Лузер™

Есть мысль макросом задавать область печати по 4 страницы в цикле.

Только я бы в цикле задавал область печати по ОДНОЙ странице, каждый раз изменяя колонтитул примерно так:

Sheets("Лист1").PageSetup.CenterFooter = "стр. " & i " из " & j

[KNatalia]

Да, я видела, спасибо!