Макрос

Private Sub Workbook_BeforePrint(Cancel As Boolean)

  Worksheets("Лист1").Range("E13").Value = Worksheets("Лист1").Range("E13").Value + 1

End Sub