[okshef]

Iska, 2010 умеет

А так же четных и нечетных

Печать верхнего колонтитула только на первой странице

[Iska]

Iska, 2010 умеет А так же четных и нечетных »

Точно, есть, это я не доглядел. Хотя, помнится, уже как-то даже спрашивал с год-два назад. Вывод: не пользуешь — забыл.

Grey_rnd, попробуйте (не проверялось. ибо не на чем):

Код:

…
objWorksheet.PageSetup.DifferentFirstPageHeaderFooter = True
objWorksheet.PageSetup.FirstPage.CenterFooter = "Список изменен " & .BuiltinDocumentProperties.Item("Last Save Time")
…

[Grey_rnd]

Microsoft Excel научился разделять колонтитулы первой и остальных страниц?! »

Не знаю....у меня 2007...
Допустим файл называется Отчет по обследованиям.xlsx, прошу подскажите как мне исправить представленный Вами макрос, что б все работало...

[okshef]

Макрос создает колонтитул активного листа до начала печати

Скрытый текст

Код:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = True
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = "Список изменен " & ActiveWorkbook.BuiltinDocumentProperties(12)
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
End Sub

[Grey_rnd]

okshef, мне бы просто дату в самом документе, потому как обычно используется электронный вид.

[okshef]

Замените на

Код:

.FirstPage.CenterHeader.Text = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

Или вам в какую-то ячейку, а не в колонтитул?

[Grey_rnd]

Или вам в какую-то ячейку »

Да именно, просто в ячейку, что бы была дата последнего сохранения. Я так думаю,что при распечатке эта дата тоже будет видна.

[okshef]

Код:

Worksheets("Sheet1").Range("D6")=Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

Вместо Sheet1 и D6 - ваши хотелки в виде названия листа и нужной ячейки. Если заранее установить формат ячейки на "Краткий формат даты", то конструкцию с Format(what, how) можно не использовать

[Grey_rnd]

okshef, Куда вставить последний приведенный Вами код?

Код:

Worksheets("Sheet1").Range("D6")=Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

Вместо

Код:

.FirstPage.CenterHeader.Text = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

????
Что то не срабатывает? что делаю неправильно?
Alt+f11, выбираю Module, вставляю код, сохраняю, сохраняю файл как файл с макросом. Далее Вид - Макросы...а внутри пусто. Он же должен там присутствовать когда добавлен?

PS
1.Как закоментировать некоторые строки, что б временное не участвовали в процессе?)

[Iska]

1.Как закоментировать некоторые строки, что б временное не участвовали в процессе?) »

Апострофом — «'» или «Rem».