MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    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: Sex 18 Ago 2017, 02:19