MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]DoCmd.OutputTo acOutputReport

    Compartilhe

    Jorge Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9
    Registrado : 12/04/2016

    [Resolvido]DoCmd.OutputTo acOutputReport

    Mensagem  Jorge Silva em Qui 21 Abr 2016, 11:29

    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:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    aparece o seguinte erro:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    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

    Jorge Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9
    Registrado : 12/04/2016

    Já resolvi

    Mensagem  Jorge Silva em Qui 21 Abr 2016, 11:51

    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

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    Re: [Resolvido]DoCmd.OutputTo acOutputReport

    Mensagem  alpedro em Qui 21 Abr 2016, 12:09

    cheers

      Data/hora atual: Dom 04 Dez 2016, 12:14