Microsoft Excel 97 и более ранних версий Microsoft Excel 98 и более ранние версии этой статьи содержатся в разделе 139405.

Обзор

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

Дополнительные сведения

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

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

Консультационная служба корпорации Майкрософт: http://support.microsoft.com/gp/advisoryservice

Дополнительные сведения о доступных вариантах поддержки и о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:условиям обслуживания см. EN-US; CNTACTMSЧтобы использовать приведенный ниже макрос, настройте файл Microsoft Excel следующим образом:



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

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

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

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

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

  6. Sub ShowMe()
    MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
    " pages will be printed."
    End Sub
  7. Запустите макрос.




Ссылки

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

Нужна дополнительная помощь?

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

Были ли сведения полезными?

Насколько вы удовлетворены качеством перевода?
Что повлияло на вашу оценку?

Спасибо за ваш отзыв!

×