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

Вход

Регистрация

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

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

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

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

Макрос для печати определённых листов книги (Макросы/Sub)

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

andron359

Дата: Четверг, 19.01.2023, 11:53 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 140

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

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

2010

Добрый день !

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

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

Сообщение отредактировал andron359 - Четверг, 19.01.2023, 15:41

Ответить

InExSu

Дата: Пятница, 20.01.2023, 16:07 | Сообщение № 2

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

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

Сообщений: 648

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

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

Excel 2010, 365

Привет, 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 Windows/Mac

Ответить

andron359

Дата: Понедельник, 23.01.2023, 12:52 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 140

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

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

2010

InExSu,
Спасибо большое !

Ответить

Макрос для печати определённых листов книги (Макросы/Sub)

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