Imprimir e incrementar el consecutivo de una factura

Tengo una dificultad con la macro que estoy utilizando para generar un consecutivo automático e imprimirla, ya que no me imprime el consecutivo que estoy visualizando sino el siguiente.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("K8:K10"))
Mensaje = "El total es " & [k11]
Mensaje = Mensaje & "¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
On Error GoTo errNoPrint
If Resp = vbYes Then
Application.EnableEvents = False
[k11] = Total
Else
Cancel = True
Application.EnableEvents = True
End If
Application.EnableEvents = True
Exit Sub
[k3] = [k3] + 1
errNoPrint:
[k3] = [k3] - 1
Cancel = True
Application.EnableEvents = True
ActiveSheet.Protect "clave"
End Sub

Agradezco su colaboración para evaluar en que estoy fallando, de antemano muchos gracias por su colaboración.