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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для печати определённых листов книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для печати определённых листов книги (Макросы/Sub)
Макрос для печати определённых листов книги
andron359 Дата: Четверг, 19.01.2023, 11:53 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 0 ±
Замечаний: 40% ±

2010
Добрый день !

Необходим макрос для печати всех видимых (скрытые листы печатать не нужно) листов книги кроме двух первых , пытался записать его , не получается .

Всем спасибо за помощь.


Сообщение отредактировал andron359 - Четверг, 19.01.2023, 15:41
 
Ответить
СообщениеДобрый день !

Необходим макрос для печати всех видимых (скрытые листы печатать не нужно) листов книги кроме двух первых , пытался записать его , не получается .

Всем спасибо за помощь.

Автор - andron359
Дата добавления - 19.01.2023 в 11:53
InExSu Дата: Пятница, 20.01.2023, 16:07 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 646
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010
Привет, andron359!

[vba]
Код
Sub Sheets_Print_Active()
   Sheets_Print ActiveWorkbook, 2
End Sub

Sub Sheets_Print(book As Workbook, skip As Long)
   ' Печатать видимые листы, кроме skip первых

   Dim index As Long

   With book

      For index = skip + 1 To .Worksheets.count

         If .Worksheets(index).visible Then _
            .Worksheets(index).PrintOut

      Next
   End With
End Sub
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel
 
Ответить
СообщениеПривет, andron359!

[vba]
Код
Sub Sheets_Print_Active()
   Sheets_Print ActiveWorkbook, 2
End Sub

Sub Sheets_Print(book As Workbook, skip As Long)
   ' Печатать видимые листы, кроме skip первых

   Dim index As Long

   With book

      For index = skip + 1 To .Worksheets.count

         If .Worksheets(index).visible Then _
            .Worksheets(index).PrintOut

      Next
   End With
End Sub
[/vba]

Автор - InExSu
Дата добавления - 20.01.2023 в 16:07
andron359 Дата: Понедельник, 23.01.2023, 12:52 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 0 ±
Замечаний: 40% ±

2010
InExSu,
Спасибо большое !
 
Ответить
СообщениеInExSu,
Спасибо большое !

Автор - andron359
Дата добавления - 23.01.2023 в 12:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для печати определённых листов книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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