MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Ao salvar em PDF a ação OutputTo é cancelada

    avatar
    NascimentoAndre
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/09/2017

    Ao salvar em PDF a ação OutputTo é cancelada Empty Ao salvar em PDF a ação OutputTo é cancelada

    Mensagem  NascimentoAndre 25/2/2018, 09:57

    Prezados colegas,
                  Eis o problema de um leigo:
      Ao salvar um arquivo em PDF através de um botão que está no formulório, ocorre o seguinte erro

    Erro em tempo de execução '2501'":
    A ação OutputTo foi cancelada

    O código está da seguinte forma:

    Private Sub BtnPdf_Click()


    Dim strArquivo As String
    Dim strLocal As String

    strArquivo = "RelSemanCilindros " & ".pdf"

    strLocal = CurrentProject.Path & "\4 - Rel Progr Cilindros\" & strArquivo

    DoCmd.OutputTo acOutputReport, "RelProgramaCilindrosPrazos", acFormatPDF, strLocal


    Podem me ajudar?
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3939
    Registrado : 29/06/2012

    Ao salvar em PDF a ação OutputTo é cancelada Empty Re: Ao salvar em PDF a ação OutputTo é cancelada

    Mensagem  Noobezinho 25/2/2018, 12:58

    Andre

    Nessa frase:

    strArquivo = "RelSemanCilindros " & ".pdf"

    Observe que tem um espaço entre o s e "

    o correto:

    strArquivo = "RelSemanCilindros" & ".pdf"

    Evite espaços entre nomes de controles, pastas, etc..., isso dificulta a leitura do algorítimo.

    Veja se funfa.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    NascimentoAndre
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/09/2017

    Ao salvar em PDF a ação OutputTo é cancelada Empty Re: Ao salvar em PDF a ação OutputTo é cancelada

    Mensagem  NascimentoAndre 26/2/2018, 14:22

    Opa,
    Valeu o apoio, erro de digitação, lamentavelmente o erro continua o mesmo...




    Abraço
    avatar
    Chevonica
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/06/2017

    Ao salvar em PDF a ação OutputTo é cancelada Empty Re: Ao salvar em PDF a ação OutputTo é cancelada

    Mensagem  Chevonica 26/2/2018, 15:06

    Rapaz, vou tentar te ajudar, vamos ver se para você vai dar certo!

    Vamos lá!

    Apenas um detalhe, testei em um projeto meu aqui e quando a pasta destino não existe, ele não estava criando uma nova, ou seja, no seu caso a pasta destino "4 - Rel Progr Cilindros" já existe, correto?


    tenta substituir por este comando abaixo,

    DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="RelProgramaCilindrosPrazos", OutputFormat:="PDF", outputfile:=strlocal


    Boa sorte!

    Abs.


      Data/hora atual: 12/4/2021, 18:48