Автор Тема: Макрос для печати страниц "кроме"  (Прочитано 62 раз)

Оффлайн Siemetrica

  • Посетитель форума
  • Сообщений: 3
Макрос для печати страниц "кроме"
« : 28 Декабрь 2018, 14:08 »
Здравствуйте. Есть макрос на печать диапазона страниц с выбором принтера (подобный, как окно печати в Word). Есть 2 принтера, один цветной, другой черно-белый. Для них и используется макрос, чтобы вводить, какие страницы печатать цветные, а какие черно-белые. Страницы вводятся в Textbox.
Возможно ли сделать, чтобы после выбора печати цветных страниц в документе на "принтере 1", остальные отправлялись автоматически на печать на "принтер 2" черно-белые.

Допустим, имеется документ 10 страниц. Выбираем печать страниц  "2-5, 8" (они цветные) на "принтер 1", а страницы "1, 6, 7, 9, 10" (они черно-белые) отправляются на печать на "принтер 2".

Оффлайн Администратор

  • Administrator
  • Сообщений: 1574
Re: Макрос для печати страниц "кроме"
« Ответ #1 : 28 Декабрь 2018, 14:20 »
Можно сделать процедуру, которая сформирует недостающие номера страниц и подставит эти номера страниц во второй текстбокс.
Или можно удалить с формы второй текстбокс и сделать так, чтобы процедура подставляла данные в то место кода, куда подставлял данные текстбокс.
Эта процедура будет запускаться после щелчка по кнопке OK.

Оффлайн Siemetrica

  • Посетитель форума
  • Сообщений: 3
Re: Макрос для печати страниц "кроме"
« Ответ #2 : 28 Декабрь 2018, 14:25 »
Можете пожалуйста подсказать первую процедуру? Лучше первый вариант, чтобы можно было в случае необходимости подредактировать номера.

Оффлайн Siemetrica

  • Посетитель форума
  • Сообщений: 3
Re: Макрос для печати страниц "кроме"
« Ответ #3 : 28 Декабрь 2018, 14:44 »
А существует ли встроенная возможность в Word или в VBA искать не напечатанные номера страниц и выцеплять их?

Оффлайн Администратор

  • Administrator
  • Сообщений: 1574
Re: Макрос для печати страниц "кроме"
« Ответ #4 : 28 Декабрь 2018, 14:47 »
не знаю