Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2014, 11:12   #1
Zet13
Новичок
Джуниор
 
Регистрация: 21.04.2014
Сообщений: 1
По умолчанию Вставка колонтитула при печати.

Excel 2010. Необходимо, чтобы при печати книги (выборочно, не все листы) формировался нижний центральный колонтитул. Его содержимое берется из ячейки А1 для каждого листа.
Написал следующий код:

Код:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim aWorksheet As Worksheet
For Each aWorksheet In ThisWorkbook.Worksheets
aWorksheet.PageSetup.CenterFooter = aWorksheet.Range("A1").Value
Next aWorksheet
End Sub
При отправке на печать вываливается ошибка 13 - несовпадение типов в 4 строке. Тем не менее делает все правильно, но выскакивающее окно с сообщением об ошибке выглядит не кошерно.
Подскажите, пожалуйста, как исправить ситуацию.

Последний раз редактировалось Zet13; 22.04.2014 в 07:11.
Zet13 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
серый фон при печати. SKS Компьютерное железо 10 02.04.2013 18:06
Word автоматическая вставка колонтитула Rillu Microsoft Office Word 3 08.08.2011 16:40
Зависание ПК при печати. delf7 Компьютерное железо 3 09.06.2010 11:16
При печати не воспринемаются табуляции Linore Общие вопросы .NET 1 10.03.2010 10:54
Дублирование при печати pavel.ignatenko Microsoft Office Excel 1 03.03.2010 23:39