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

    [Resolvido]nome relatorio pdf

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 02/09/2016

    [Resolvido]nome relatorio pdf Empty [Resolvido]nome relatorio pdf

    Mensagem  ictsp 29.09.16 16:58

    Boa tarde!

    Quero salvar um relatório em pdf e estou tentando com o seguinte código:

    Private Sub save_Click()
    Dim strarquivo As String
    Dim strlocal As String
    strarquivo = "& Me!EMPR &" & Format(data(), "ddmmyy") & "_" & loc & ".pdf"
    DoCmd.OutputTo acOutputReport, strarquivo, acFormatPDF, SRTLOCAL, True
    End Sub

    Porém, na hora de escolher o local para salvar o arquivo, aparece da seguinte maneira:

    Me!EMPR & 290916_1

    o problema é esse começo, onde deveria aparecer o nome da empresa. Alguem sabe como resolver?
    Desde já, agradeço antecipadamente a ajuda dos colegas!!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 904
    Registrado : 09/11/2012

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  =>Nois 29.09.16 21:29

    coloque assim:

    strarquivo = Me!EMPR & "-" & Format(data(), "ddmmyy") & ".pdf"


    este loc voce nao declarou entao tirei

    & loc & ".


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 02/09/2016

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  ictsp 30.09.16 8:06

    Bom dia Nois!

    Realmente, o seu código está perfeito. Agora, estou com um pequeno problema na hora de salvar. Pesquisando no forum, achei esse código do colega Claudio Mas, que permite escolher o local onde quero salvar o arquivo:

    Dim fso As Object

    Set fso = Application.FileDialog(4)
    fso.AllowMultiSelect = False

    If fso.Show Then
    DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, f.SelectedItems(1) & "\Contato.pdf", False
    End If

    Estou tentando adaptar dessa forma:
    Dim fso As Object
    Dim strarquivo As String
    strarquivo = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc &".pdf "
    Set fso = Application.FileDialog(4)
    fso.AllowMultiSelect = False

    If fso.Show Then
    DoCmd.OutputTo acOutputReport, strarquivo, acFormatPDF, fso.SelectedItems(1) & "\strarquivo.pdf", False
    End If

    Está dando o seguinte erro:

    Erro de execução 2059
    O BD não pode localizar o objeto '|1'

    Vc saberia me dizer o que está errado?

    Obrigado!!

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 904
    Registrado : 09/11/2012

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  =>Nois 30.09.16 8:45

    olhe a resolução deste tópico sua pergunta é semelhante

    https://www.maximoaccess.com/t28030-resolvidosalvar-relatorio-com-nome-de-campos


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 02/09/2016

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  ictsp 30.09.16 11:13

    Nois, desculpe minha ignorância, estou desenvolvendo meu projeto em cima das informações que retiro dos colegas do fórum. Não tenho muita intimidade com o access kkkk.

    Depois de muitas tentativas, finalmente cheguei onde queria. O código ficou da seguinte maneira:

    Dim str As String
    str = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

    Dim fso As Object
    Set fso = Application.FileDialog(4)
    fso.AllowMultiSelect = False

    If fso.Show Then
    DoCmd.OutputTo acOutputReport, "rel", acFormatPDF, fso.SelectedItems(1) & "\" & str, True

    Agora consigo escolher qualquer pasta e salvar com o nome desejado.

    Desde já, agradeço muito sua ajuda!!

    Abraço!! cheers
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 02/09/2016

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  ictsp 30.09.16 11:25

    Muito obrigado Nois pela ajuda!!

    ficou assim:

    Dim str As String
    str = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

    Dim fso As Object
    Set fso = Application.FileDialog(4)
    fso.AllowMultiSelect = False

    If fso.Show Then
    DoCmd.OutputTo acOutputReport, "rel", acFormatPDF, fso.SelectedItems(1) & "\" & str, True

    Agora, consigo salvar o arquivo em qualquer pasta já com o nome pré-determinado.


    MUITO OBRIGADO!!! Very Happy Very Happy
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 904
    Registrado : 09/11/2012

    [Resolvido]nome relatorio pdf Empty Re: [Resolvido]nome relatorio pdf

    Mensagem  =>Nois 30.09.16 12:40

    Agradecemos o Retorno.

    sds.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 11.04.21 21:36