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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на печать (Макросы/Sub)
Макрос на печать
lebvitali Дата: Понедельник, 12.07.2021, 17:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - lebvitali
Дата добавления - 12.07.2021 в 17:59
Serge_007 Дата: Вторник, 13.07.2021, 09:14 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14333
Репутация: 2368 ±
Замечаний: ±

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

[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]


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

[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]

Автор - Serge_007
Дата добавления - 13.07.2021 в 09:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на печать (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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