Печать определенных страниц через запятую

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Печать определенных страниц через запятую - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать определенных страниц через запятую (Макросы/Sub)

Печать определенных страниц через запятую

Печать с помощью VBA

Дата: Понедельник, 11.08.2014, 09:32 | Сообщение № 1

Группа: Гости

Нужна помощь необходимо найти определенные ячейки проверить их на значение собрать в список странички на которых они находятся и распечатать на одном листе несколько страниц через запятую
Можно создать массив например:
ячейка С2 = 1 номер странички
Ячейа С39 = 5 номер странички
и после этого из него собрать список страничек необходимых для печати и после запустить их на печать
аналог:
Sheets("КакойтоЛист").Activate
If Worksheets("КакойтоЛист").Range("C2") <> 0 Then _
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
If Worksheets("КакойтоЛист").Range("C39") <> 0 Then _
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True

при таком методе печать очень долго происходит
Спасибо заранее за любую помощь
[moder]Для начала прочитайте Правила форума

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать определенных страниц через запятую (Макросы/Sub)

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