Как подсчитать количество напечатанных страниц на листе?

Перед печатью листа вам может потребоваться заранее узнать общее количество страниц для печати. В этой статье я расскажу о различных способах, которые помогут вам это сделать.

Подсчет количества страниц с помощью функции Печать

Подсчет количества страниц с помощью кода VBA

Подсчет количества страниц с помощью Kutools для Excel

Подсчет количества страниц с помощью функции Печать

Чтобы подсчитать количество страниц перед печатью, вы можете перейти в раздел Печать, чтобы увидеть номер счетчика.

Откройте лист, для которого хотите подсчитать количество страниц для печати, и нажмите Файл > Печать, затем вы сможете увидеть количество страниц для печати.

Примечание: вы можете изменить масштаб печати из выпадающего списка в разделе Параметры.

Подсчет количества страниц с помощью кода VBA

Также существует код VBA, который может сообщить вам количество страниц для печати на листе.

1. Активируйте лист, который хотите подсчитать, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль, затем вставьте приведенный ниже код в Модуль.

VBA: Подсчет количества страниц для печати на листе

Sub ShowMe()
    MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
        " pages will be printed."
End Sub

3. Нажмите F5 для запуска кода, после чего появится диалоговое окно, показывающее количество страниц для печати. См. скриншот:

Подсчет количества страниц с помощью Kutools для Excel

Если у вас есть Kutools для Excel, вы можете использовать его функцию Печать указанных страниц, а затем просмотреть количество страниц для печати активного листа.

После установки Kutools для Excel выполните следующие действия:(Бесплатная загрузка Kutools для Excel прямо сейчас!)

Откройте лист, для которого нужно подсчитать страницы, нажмите Kutools Plus > Печать > Печать указанных страниц, а затем просмотрите количество страниц в появившемся диалоговом окне. См. скриншот:

Примечание: Вы можете печатать только нечетные страницы, только четные страницы или только определенные страницы с помощью функции Печать указанных страниц.

Совет. Если вы хотите бесплатно протестировать функцию Печать указанных страниц, пожалуйста, скачайте Kutools для Excel бесплатно, а затем примените операцию согласно вышеуказанным шагам.

Демонстрация