Botón de Imprimir que actualice el Contador de Facturas e imprima a continuación el Informe.

Tengo un botón que me imprime un Informe y necesito que el mismo me actualice el contador de facturas y a continuación me imprima el informe con el nuevo numero de factura.

Lo he colocado todo en el evento al hacer click, me incrementa el valor correctamente y me imprime el documento pero no me toma como numero de documento el nuevo valor calculado. Este lo recoge en el momento de salirse del proceso y la factura queda impresa con el umero 0.

Estos son los parámetros que tengo puestos en el Evento (Al hacer click):

Private Sub IMPRIMIR_Click()

Me.NumFacDef = Year(Date) & Format(Nz(DMax("Val( Mid(NumFacDef, 5))", "(A) CAB FACTURAS (PROV)", "Val( Left(NumFacDef,4)) = " & Year(Date)), 0) + 1, "0000")

DoCmd.OpenReport "FORMULARIO FACTURAS", acViewPreview, , "ContadorFacturas=" & Me.ContadorFacturas

End Sub

Os agradezco de antemano toda la ayuda que podáis darme.

Muchas Gracias