Макрос для печати первой и последней страницы листа Excel.

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

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

Макрос для печати первой и последней страницы листа Excel. (Макросы/Sub)

ilias-arh

Дата: Вторник, 02.06.2015, 11:04 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2010

Добрый день. Требуется автоматизировать печать первой и последней страницы всех листов книги Excel 2010.
На форуме нашел макрос от пользователя Pelena, который подходит частично:

[vba]

Код

Public Sub prn()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.PrintOut From:=1, To:=1, Copies:=1
Next
End Sub

[/vba]

Он печатает только первые страницы.
Подскажите, как его переделать, чтобы печаталась первая и последняя страницы листов книги. Заранее спасибо.

Сообщение отредактировал ilias-arh - Вторник, 02.06.2015, 11:06

Ответить

Manyasha

Дата: Вторник, 02.06.2015, 11:24 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

ilias-arh, попробуйте так:[vba]

Код

Public Sub prn()
      Dim sh As Worksheet
      For Each sh In ThisWorkbook.Sheets
          With sh
              kolPages = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
              sh.PrintOut From:=1, To:=1, Copies:=1
              sh.PrintOut From:=kolPages, To:=kolPages, Copies:=1
          End With
      Next
End Sub

[/vba]
Не проверяла обязателен ли параметр To, на всякий случай добавила.

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Вторник, 02.06.2015, 11:26

Ответить

ilias-arh

Дата: Вторник, 02.06.2015, 11:42 | Сообщение № 3

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

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

Сообщений: 3

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

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

Excel 2010

Спасибо, все работает.

Ответить

Макрос для печати первой и последней страницы листа Excel. (Макросы/Sub)

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