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

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

Для рассматриваемого здесь решения требуются два макроса. Первый запускается при первом открытии книги. Он устанавливает правильный обработчик событий для запуска фактического макроса, выполняющего печать.

Private Sub Workbook_Open()

'Schedule the printing     Application.OnTime TimeValue("17:00:00"), "PrintMe"

End Sub

Этот конкретный марко устанавливает, что метод OnTime запускается в 17:00. достигнуто. Чтобы указать другое время дня, просто измените время (в 24-часовом формате) в макросе. Когда 17:00 вращается, Excel запустит макрос PrintMe:

Private Sub PrintMe()

Sheets(2).PrintOut     'Reschedule the printing     Application.OnTime TimeValue("17:00:00"), "PrintMe"

End Sub

Этот макрос ничего не делает, кроме печати второго листа в книге (который должен содержать сводную информацию, которую вы хотите напечатать), а затем сбрасывает метод OnTime, чтобы он снова запускался в 17:00. На следующий день. Если вы хотите напечатать другой диапазон данных, просто измените объект, используемый с методом PrintOut, в первой строке макроса.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (10632) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Automatically_Printing_a_Range [Автоматическая печать диапазона].