PrintArea. vba. Динамически

Пользователь

Сообщений: 399 Регистрация: 01.01.1970

24.04.2012 13:30:47

Добрый день уважаемые форумчане.
Как можно задать динамически область печати. Проблема с синтаксисом

Допустим макрос пишет абсолютно
ActiveSheet.PageSetup.PrintArea = "$B$2:$Ah$443"

а можно получить динамически, примерно вот так:
ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(100, 20))

Заранее спасибо!

With my best regards, Inter_E

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 24.04.2012 13:36:42 А на именованный (динамический) не реагирует?

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#3 24.04.2012 14:15:50 ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(100, 20)).Address

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 24.04.2012 14:18:24 ActiveSheet.PageSetup.PrintArea = "МойДиапазон"

Inter_E Пользователь Сообщений: 399 Регистрация: 01.01.1970	#5 24.04.2012 15:21:00 Спасибо друзья за помощь, пока ждал, тоже где то откапал так: Dim myRange As String Range(Cells(2, 2), Cells(ILR, iLC)).Select myRange = Selection.Address ActiveSheet.PageSetup.PrintArea = myRange но у Хюго вариант понравился)) With my best regards, Inter_E

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#6 24.04.2012 15:29:51 Да разницы нет - у меня только без лишних посредников. PrintArea'ю нужна строка - вот её и даём.

Читают тему