колонтитулы в Excel

[Maks the best]

Никак не сообразить
проблема:
надо проставить колонтитулы в Excel в выделенной группе листов (эта группа всегда все листы книги), но обычным способом изменяется не только колонтитулы но и разбивка листа под печать, например ориентация листа становится у всех по активному листу а это бэд, я делаю макросом типо:

Код: Выделить всё


With ActiveSheet.PageSetup
        .LeftHeader = "x"
        .CenterHeader = "x"
        .RightHeader = "x"
        .LeftFooter = "x"
        .CenterFooter = "x"
        .RightFooter = "x"
    End With


но как перед этим выделить все листы книги?
чтоб не типо этого:

Код: Выделить всё


Sheets(Array("Лист1","Лист2","Лист3","Лист4")).Select


а типо как нибудь:

Код: Выделить всё


Sheets(Array(All)).Select


ну это то последнее неверно, а как верно?
подскажите пожалуйста...

[Maks the best]

а вообще и арри это не помогает, колонтитулы не ставятся на листы все сразу, вопрос снимается, неужели только перебором каждого листа чтоб разметку страниц не зацепить?

[uhm]

Проблему не понял. Вот так не работает?

Код: Выделить всё

    For Each i In Sheets
        i.PageSetup.LeftHeader = "ЛЯЛЯЛЯ"
    Next i


ЗЫ Какие интересные буковки получаются, если "ЛЯЛЯЛЯ" копи-пейстить в код прямо из VBA-редактора

[Maks the best]

ляляля работает! я просто до этого ляляля
видимо еще не дорос ) спасибо!

а еще не подскажешь, я в поиске столько всего пересмотрел, и не понять не определиться что лучше и проще
чтоб на другой машине где нет той References что у меня подключено все тоже без матов заработало, какойй самый простой способ, перенести и зарегистрировать там тоже эту библиотеку (наврят ли простой) или вот смотрю о каких то инсталяторах все говорят, а где взять и вообще с чем его едят ... вот

[uhm]

Не, я проги пишу почти всегда только для себя, поэтому в таких вещах плохо разбираюсь.

[Maks the best]

ладно, как говорил этот самый... будем искать : ) спасибо еще раз !!! : )