print og stig i fkatura nummer

kan man evt gøre sådan at excel stiger i et felt hver gang man printer en side ud?
Har taget udgangspunkt i dette som har fundet et andet sted men fatter hat af workbook osv så giv en god forklaring:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save' gør at mappen gemmes hvis du glemmer det.
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
svar = MsgBox("Vil du udskrive faktura og opdatere fakturanummer")
Application.EnableEvents = False
If svar = vbOK Then
Sheets("Faktura").PrintOut' skriver faktuaren ud
Sheets("Faktura").Range("F1") = Sheets("Faktura").Range("F1") + 1 ' lægger 1 til fakturanummeret.
End If
Application.EnableEvents = True
End Sub