Печать видимых страниц на листе

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

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

Печать видимых страниц на листе (Макросы/Sub)

AVI

Дата: Четверг, 27.09.2018, 20:20 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

Добрый день!
Не могу побороть проблему.
В файле на листе видимы три страницы из 8-ми.
Подскажите, пожалуйста, как заставить по нажатию на кнопку "Распечатать и закрыть" заставить распечатываться только эти три (их может быть и две, и все восемь в зависимости от данных, которые попадают в таблицу) страницы.
Все время в печать уходят все восемь.

К сообщению приложен файл: 5876771.xlsm (39.0 Kb)

Ответить

_Boroda_

Дата: Четверг, 27.09.2018, 21:04 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

В диспетчере имен (Контрл F3) в имени "Область печати" введите вот такую формулу

Код

=Накладная!$D$1:ИНДЕКС(Накладная!$P:$P;ПРОСМОТР(;-1/(Накладная!$A$1:$A$999="показать");СТРОКА(Накладная!$A$1:$A$999)))

К сообщению приложен файл: 5876771_1.xlsm (41.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

AVI

Дата: Пятница, 28.09.2018, 11:59 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

_Boroda_, Спасибо!
А этот диапазон можно как-нибудь прописать в коде? А то периодически случается, что через диспетчер имен область печати слетает.

Ответить

_Boroda_

Дата: Пятница, 28.09.2018, 12:14 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Это PrintArea
[vba]

Код

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$6"

[/vba]

Ответить

Печать видимых страниц на листе (Макросы/Sub)

Страница 1 из 1
1