Как определить, сколько страниц будет напечатано в Excel

Аннотация

Microsoft Visual Basic для приложений не предоставляет метод для определения общего количества страниц, которые будут печататься на листе. Однако для использования GET можно использовать метод ExecuteExcel4Macro. Функция листа макросов DOCUMENT(50) возвращает общее количество страниц, которые будут напечатаны на активном листе.

Дополнительная информация

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и не предоставляет явных или подразумеваемых гарантий относительно их корректной работы в конкретных случаях и в пользовательских приложениях. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается.
Если у вас ограниченный опыт программирования, вам может потребоваться обратиться к сертифицированному партнеру Майкрософт или к консультационным службам Майкрософт. Дополнительные сведения см. на следующих веб-сайтах Майкрософт:

Сертифицированные партнеры Майкрософт — https://partner.microsoft.com/global/30000104

Профессиональные службы Майкрософт — https://www.microsoft.com/professionalservices/overview

Дополнительные сведения о доступных вариантах поддержки и о том, как связаться с корпорацией Майкрософт, см. на следующем веб-сайте Майкрософт:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSЧтобы использовать следующий макрос, настройте файл Microsoft Excel следующим образом:

1. Создайте новую книгу Microsoft Excel.

2. Выберите диапазон A1:J100.

3. Введите цифру 1 и нажмите клавиши CTRL+ВВОД. Вы увидите все выбранные ячейки, заполненные числом 1.

4. Вставка макромодуля Visual Basic.

5. Введите следующий код в модуле:

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

7. Запустите макрос.

Ссылки

Дополнительные сведения о макрофунк-функции Get.Document можно найти в справочном руководстве по функции Excel.