Access - Flujo de programa.

Hola a todos.
Tengo un Pricedimeinto de Evento:

Private Sub btnImprimir_Click()

On Error GoTo Err_Imprimir_Click

Dim stNombreFormulario As String, stNombreInforme As String
stNombreFormulario = "Credito o Contado"
stNombreInforme = "Albaranes"
DoCmd.OpenForm stNombreFormulario
DoCmd.OpenReport stNombreInforme

Exit_Imprimir_Click:
Exit Sub

Err_Imprimir_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Click
End Sub

El problema es que necesito que se imprima el informe cuando se cierre el formulario que es Modal.
Si alguien me puede ayudar se lo agradecería muchísimo.
Saludos.

Aunque sea el formulario modal, el código no se detiene, sólo abriéndolo como diálogo conseguirás retener la ejecución del código hasta que lo cierres:

docmd.OpenForm stNombreFormulario ,,,,,acDialog

Saludos
José Bengoechea Ibaceta