Макрос на печать

Вход

Регистрация

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

= Мир MS Excel/Макрос на печать - Мир MS Excel

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

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

Макрос на печать (Макросы/Sub)

Макрос на печать

lebvitali

Дата: Понедельник, 12.07.2021, 17:59 | Сообщение № 1

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

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

Сообщений: 7

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

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

Уважаемые подскажите пожалуйста как прописать макрос на печать Отчета по условию если А1=1 чтоб распечатал 1ую тстретсли А1=2 чтоб печатал 1ую и 2 ую стр ,А3=3 чтоб печатал 1,2,3 стр. Лист называется отчет. Спасибо за ранее за ответ !

Ответить

Serge_007

Дата: Вторник, 13.07.2021, 09:14 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

[vba]

Код

Sub Print_lebvitali()
Dim P As Integer
P = Range("a1")
Sheets("отчет").PrintOut From:=1, To:=P, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Макрос на печать (Макросы/Sub)

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