Определение даты последней печати

Функция ДАТАПЕЧАТИ возвращает дату последней печати файла Excel. С помощью нее можете проверить когда был распечатан например какой либо счет или иной документ.

Описание функции

Вы можете использовать данную функцию из надстройки в любой ячейки файла Excel, аналогично любой другой. Функция =ДАТАПЕЧАТИ() не имеет аргументов.

Пример

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

Определение даты печати текущей книги Excel

Код на VBA

Ниже привожу код самой функции для самостоятельного импорта его в ваш файл Excel.

Function ДАТАПЕЧАТИ()
    Application.Volatile
    On Error Resume Next
    If Err.Number = 0 Then
        ДАТАПЕЧАТИ = ActiveWorkbook.BuiltinDocumentProperties("Last print date")
    Else
        ДАТАПЕЧАТИ = "Файл не отправлялся на печать"
    End If
End Function
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.