Макрос
для печатиPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Лист1").Range("E13").Value = Worksheets("Лист1").Range("E13").Value + 1
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Лист1").Range("E13").Value = Worksheets("Лист1").Range("E13").Value + 1
End Sub