Макрос для печати определенного диапазона учитывая кол-во копий

Nikolay_S Пользователь Сообщений: 12 Регистрация: 29.10.2018	#1 08.12.2018 14:43:02 Здравствуйте Изменено: Nikolay_S - 13.12.2018 13:41:27

Inexsu

Пользователь

Сообщений: 760 Регистрация: 29.06.2017

08.12.2018 18:46:33

Привет!

Код

Sub Бланк()

    If Range("B27").Value > 0 Then _
       Range("A1:E25").PrintOut _
       Copies:=Range("B27"), Collate:=True

    If Range("G27").Value > 0 Then _
       Range("F1:J25").PrintOut _
       Copies:=Range("G27"), Collate:=True
End Sub

Сравнение прайсов, таблиц - без настроек

Nikolay_S Пользователь Сообщений: 12 Регистрация: 29.10.2018	#3 09.12.2018 10:45:44 Спасибо)