[Resolvido]DoCmd.OutputTo acOutputReport

Bom dia,
Estou a criar exportação de relatório para pdf via botão (Comando19) , em formulário (impressaoescalao) com o seguinte código:

Private Sub Comando19_Click()
DoCmd.OutputTo acOutputReport, "Escalão A", "pdf", "", True, "", 0
MsgBox "ESCALÃO A guardado com Sucesso"
End Sub

Tudo funciona correto se clicar OK na mensagem do windows:
- O documento é gerado em pdf
- é pedido para guardar numa localização (a escolher) no pc.
- o documento posteriormente é aberto.
- a mensagem "ESCALÃO A guardado com Sucesso" aparece

No entanto se clicar em cancelar na mensagem do windows:


aparece o seguinte erro:


Será que me podem ajudar e alterar o código para que ao clicar na mensagem do windows seja cancelado o comendo e regresse ao formulário (impressaoescalao).

Obrigado
Aguardo

Jorge Silva

Aproveitando uma dica do JPaulo,

o Código fica da seguinte forma:

Private Sub Comando19_Click()
On Error GoTo 1
DoCmd.OutputTo acOutputReport, "Escalão A", "pdf", "", True, "", 0
MsgBox "ESCALÃO A guardado com Sucesso"
1:
If Err.Number = 2501 Then
Exit Sub
End If
End Sub


Obrigado
Jorge Silva