Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Прошу помочь с отправкой на печать выборочных листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прошу помочь с отправкой на печать выборочных листов (Макросы/Sub)
Прошу помочь с отправкой на печать выборочных листов
TesLa Дата: Суббота, 16.05.2020, 23:30 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Суть такова, есть автогенератор актов на скрытые работы, в нем есть реестр актов. Каждый акт на разных листах excel и состоит из 2-3 страниц.
Можно ли сделать так, чтобы через реестр можно было отправлять на Двухстороннюю печать выборочные акты (листы Экселя)?
типа поставить "+" или "-" за пределами реестра и напротив названия, и тогда будет/не будет печататься акт (лист экселя)
Лист для примера работы я прикладываю (прошу над содержимым не запариваться, ибо это рабочий вариант для тестов в разных условиях)

[p.s.] Надеюсь в целом меня поняли, в случае чего отвечу на ваши вопросы
К сообщению приложен файл: Excel2__.xlsm(175.6 Kb)


Сообщение отредактировал TesLa - Суббота, 16.05.2020, 23:35
 
Ответить
СообщениеСуть такова, есть автогенератор актов на скрытые работы, в нем есть реестр актов. Каждый акт на разных листах excel и состоит из 2-3 страниц.
Можно ли сделать так, чтобы через реестр можно было отправлять на Двухстороннюю печать выборочные акты (листы Экселя)?
типа поставить "+" или "-" за пределами реестра и напротив названия, и тогда будет/не будет печататься акт (лист экселя)
Лист для примера работы я прикладываю (прошу над содержимым не запариваться, ибо это рабочий вариант для тестов в разных условиях)

[p.s.] Надеюсь в целом меня поняли, в случае чего отвечу на ваши вопросы

Автор - TesLa
Дата добавления - 16.05.2020 в 23:30
boa Дата: Понедельник, 18.05.2020, 14:42 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 488
Репутация: 148 ±
Замечаний: 0% ±

2013, 365
TesLa,
И вам здрасьте,
Если в 6-й колонке "F" проставлен "+", то выводим на печать
[vba]
Код
Sub Print_Act()
Dim iRow&
  With Worksheets("Реестр")
    For iRow = 4 To .Cells(.Rows.Count, 3).End(xlUp).Row
      If .Cells(iRow, 6) = "+" Then Worksheets("Акт № " & .Cells(iRow, 3)).PrintOut Copies:=1
    Next
  End With
End Sub
[/vba]
Двустороння печать или нет указывается в настройках принтера


 
Ответить
СообщениеTesLa,
И вам здрасьте,
Если в 6-й колонке "F" проставлен "+", то выводим на печать
[vba]
Код
Sub Print_Act()
Dim iRow&
  With Worksheets("Реестр")
    For iRow = 4 To .Cells(.Rows.Count, 3).End(xlUp).Row
      If .Cells(iRow, 6) = "+" Then Worksheets("Акт № " & .Cells(iRow, 3)).PrintOut Copies:=1
    Next
  End With
End Sub
[/vba]
Двустороння печать или нет указывается в настройках принтера

Автор - boa
Дата добавления - 18.05.2020 в 14:42
TesLa Дата: Понедельник, 18.05.2020, 18:02 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
boa,
Спасибо вам большое!!!
 
Ответить
Сообщениеboa,
Спасибо вам большое!!!

Автор - TesLa
Дата добавления - 18.05.2020 в 18:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прошу помочь с отправкой на печать выборочных листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!