[Resolvido]Oculta erro de mensagem a ser cancelado

amigos tentei encontrar mas não consegui . Como ocultar erro de mensagem o access
criei uma macro de imprimir no relatório , ao cancelar a impressão o access trás um erro de execução
Lembro que Jpaulo tinha me ajudado , mas não consigo encontrar.

Código:

Private Sub imprimir_Click()
If Err.Number = 2212 Then Resume Next

DoCmd.PrintOut


End Sub


Boa noite,
Não sei em qual momento cancela a impressão,
Então vou chutar aqui:

No evento Ao ocorrer erro do relatório ponha:

Código:

Response = acDataErrContinue

Caso continue, nos informe o memento exato desse cancelamento.

continua com o erro

Código:

Private Sub Report_Current()
DoCmd.PrintOut
End Sub

Private Sub Report_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue


Deixe a mensagem apenas para testar.

Código:

Private Sub imprimir_Click()
On Error GoTo 1
If Err.Number = 2212 Then Resume Next

DoCmd.PrintOut

1:
   If Err.Number = 2501 Or Err.Number = 2212 Then
       Err.Number = 0
        MsgBox "Cancelado...", vbOKOnly
    Else
       Exit Sub
    End If
End Sub

Obrigado Jpaulo, lembro-,me que já tinha me passado so que não estava conseguindo achar.
Marcelo David obrigado camarada pela atenção

Obrigado pelo retorno o forum agradece.