Область печати макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Область печати макросом (Макросы/Sub)

sekretland

Дата: Суббота, 07.10.2023, 00:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте коллеги! Прошу помочь.
Есть в макросе строка:
[vba]

Код

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10"

[/vba]
Я хочу, чтобы макрос брал значение "$A$1" из ячейки С1, а значение $B$10 из ячейки D1. Это нужно для возможности тонкой настройки кнопки. Как изменить макрос, так чтобы он "$A$1:$B$10" собирал с ячеек C1 и D1 расположенных на листе?

Сообщение отредактировал sekretland - Суббота, 07.10.2023, 00:15

Ответить

Nic70y

Дата: Суббота, 07.10.2023, 07:25 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

ActiveSheet.PageSetup.PrintArea = Range("c1").Value & ":" & Range("d1").Value

[/vba]

ЮMoney 41001841029809

Ответить

sekretland

Дата: Суббота, 07.10.2023, 10:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, огромное спасибо за помощь, все прекрасно работает!

Я извиняюсь, и вновь прошу Вашей помощи!

Если задавать две страницы для печати (указывается отдельно два диапазона), макрос выглядит так:

[vba]

Код

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10,$A$10:$B$20"

[/vba]
Я наивно полагал, что смогу вставить через запятую Ваше решение примерно так:

[vba]

Код

ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value, Range("C2").Value & ":" & Range("D2").Value

[/vba]
Итог - конечно же не завелось.

Задача - аналогична первой, но необходимо добавить второй диапазон из ячеек С2 и D2 для включения в печать двух страниц