Как я могу распечатать несколько электронных таблиц в определенное время?

Question

У меня есть книга Excel, в которой есть несколько листов. Есть ли способ, чтобы один лист автоматически печатался в 8:00, другой лист автоматически печатался в 10:00, другой лист автоматически печатался в 12:00 и т.д.?

Я все еще использую Office 2003

Answer 1

Прежде всего; Добро пожаловать в Superuser.

Если вы знакомы с Macros/VBA в Excel, вы можете использовать следующий код для начала работы. Извините, это работает для меня, но у меня нет Excel 2003, чтобы проверить его, прежде чем дать вам. Это означает, что я не могу гарантировать, что это будет работать для вас без дополнительной работы.

Скопируйте и вставьте это в модуль VBA. Вам нужно будет изменить названия листов, чтобы они стали именами ваших вкладок.

Private Sub Workbook_Open()
Run "timer"
End Sub

Sub timer()
Application.OnTime TimeValue("08:00:00"), "Print_1"
Application.OnTime TimeValue("10:00:00"), "Print_2"
Application.OnTime TimeValue("12:00:00"), "Print_3"
End Sub

Sub Print_1()
' Prints the sheet for 8am
    Sheets("sheet1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub Print_2()
' Prints the sheet for 10am
    Sheets("sheet2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub Print_3()
' Prints the sheet for 12pm
    Sheets("sheet3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Надеюсь, это поможет вам.

Примечание. Система использует 24-часовые часы. Поэтому, чтобы использовать время после полудня, добавьте 12 к нему. Например, 15:00 - 15:00:00.