Прошу помочь с отправкой на печать выборочных листов

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

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

Прошу помочь с отправкой на печать выборочных листов (Макросы/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

Ответить

boa

Дата: Понедельник, 18.05.2020, 14:42 | Сообщение № 2

Группа: Друзья

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

Сообщений: 559

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

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

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

Дата: Понедельник, 18.05.2020, 18:02 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2019

boa,
Спасибо вам большое!!!

Ответить

Прошу помочь с отправкой на печать выборочных листов (Макросы/Sub)

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