Доброго времени суток. Подскажите решение след. задачи.
Необходимо сделать колонтитул на определенные (выбранные) листы книги.
То есть, что бы при сохранении выбранных листов в PDF отображался колонтитул. На просторах интернета нашел код для написания макроса. Но не могу решить проблему отображения колонтитула на НЕСКОЛЬКИХ (определенных/ выбранных листах). Листы, на данный момент выбираются вруную, впоследствии, листы будут выбираться автоматически с помощью макроса. Подскажите, что добавить в код, что бы отображение происходило на всех необходимых листах.
Код изначально был вот такой:
"Поковырявшись", нашел вот такой вариант.....но он выкидывает ошибку...
Необходимо сделать колонтитул на определенные (выбранные) листы книги.
То есть, что бы при сохранении выбранных листов в PDF отображался колонтитул. На просторах интернета нашел код для написания макроса. Но не могу решить проблему отображения колонтитула на НЕСКОЛЬКИХ (определенных/ выбранных листах). Листы, на данный момент выбираются вруную, впоследствии, листы будут выбираться автоматически с помощью макроса. Подскажите, что добавить в код, что бы отображение происходило на всех необходимых листах.
Код изначально был вот такой:
Код |
---|
Sub Signature() 'Для колонтитула With ActiveSheet.PageSetup .LeftFooter = " Шифр: " & ['Ввод общих данных'!H19] .CenterFooter = "" .RightFooter = "Лист &P" & " Листов &N " End With End Sub |
Код |
---|
Sub Signature() Dim xSh As Worksheet Application.ScreenUpdating = False For Each xSh In Worksheets xSh.Select Call CodSignature Next Application.ScreenUpdating = True End Sub Sub CodSignature() .LeftFooter = " Шифр: " & ['Ввод общих данных'!H19] .CenterFooter = "" .RightFooter = "Лист &P" & " Листов &N " End With End Sub |