[Resolvido]Como tirar msg de erro de execução.

Bom dia, amigos.

Tenho algumas dúvidas, que talvez sejam bobas.

Exemplo, eu tenho relatório que já mando direto para imprimir em pdf. Aí ele abre a caixa de dialogo do windows perguntando qual local quero salvar.
Se eu cancelar o mesmo, ele dá erro de execução, tem como retirar "erro". Pois o usuário pode querer cancelar e iria abrir essa msg do visual basic para depurar sem necessidade o mesmo podendo fazer alguma besteira nos códigos.

Basta fazer o tratamento do erro. Coloque aqui o código usado no seu botão imprimir para fazermos o ajuste.

Antes era assim que estava:

Código:

Private Sub btnRelLucroMes_Click()
DoCmd.OpenReport "RelLucro"
End sub

Coloquei dessa forma. Seria assim?

Código:

Private Sub btnRelLucroMes_Click()
On Error GoTo btnRelLucroMes_Click_Err

[b]DoCmd.OpenReport "RelLucro"[/b]

btnRelLucroMes_Click_Exit:
    Exit Sub

btnRelLucroMes_Click_Err:
    MsgBox Error$
    Resume btnRelLucroMes_Click_Exit
End Sub

Código:

Private Sub btnRelLucroMes_Click()
On Error GoTo btnRelLucroMes_Click_Err

DoCmd.OpenReport "RelLucro"

btnRelLucroMes_Click_Exit:
    Exit Sub

btnRelLucroMes_Click_Err:
    If Err.Number <> 2212 then MsgBox Error$
    Resume btnRelLucroMes_Click_Exit
End Sub

Muito obrigado!!!!

O fórum agradece o retorno. Sucesso.