Дата: Понедельник, 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]Для начала прочитайте Правила форума
Нужна помощь необходимо найти определенные ячейки проверить их на значение собрать в список странички на которых они находятся и распечатать на одном листе несколько страниц через запятую Можно создать массив например: ячейка С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]Для начала прочитайте Правила форумаПечать с помощью VBA