Ejecutar eventos en procedimientos

Hola!
Mi problema es que imprimó una factura y pregunto si se imprimió Ok para actualizar los datos. El Problema es que no alcanzo a revisar y se me posiciona el cursor en la pregunta. En resumen no hay pausa entre la impresión y la actualización. Te agradeceré mucho que me ayudes a sacar este problema, te dejo el procedimiento tal como lo tengo en mi aplicación. Gracias desde ya,
Atentamente Eugenio Paz.
Private Sub Imprimir_Click()
Dim cadNombreDocumento As String
If TipoDoc > 0 And DoctoVen > 0 And FechaVen > 0 And [Forma de Pago] > 0 Then
If MsgBox("Estan Todos los Datos Ok? ", vbQuestion + vbYesNo) = vbYes Then
cadNombreDocumento = "Factura"
DoCmd.OpenReport cadNombreDocumento, acViewPreview, "Filtro facturas"
If MsgBox("Imprimió Ok? ", vbQuestion + vbYesNo) = vbYes Then
DoCmd.RunMacro "ActualizaOte"
End If
Else
DoctoVen.SetFocus
End If
Else
MsgBox ("Faltan parametros para facturar")
DoctoVen.SetFocus
End If
End Sub