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]salvar relatorio com nome de campos

    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]salvar relatorio com nome de campos Empty [Resolvido]salvar relatorio com nome de campos

    Mensagem  ictsp Seg Set 26, 2016 2:11 pm

    Boa tarde! Gostaria de saber se é possível salvar um relatório usando dois campos para dar nome ao mesmo.
    Atualmente, estou usando esse código:

    DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & Me!Empr & " .pdf", False

    mas gostaria de acrescentar o campo "cód" tbém, para facilitar a localização do documento.

    Também gostaria de saber se é possível permitir ao usuário escolher o local onde quer salvar o arquivo. (escolher qualquer pasta)

    Desde já, agradeço a ajuda dos colegas!!
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]salvar relatorio com nome de campos Empty Re: [Resolvido]salvar relatorio com nome de campos

    Mensagem  Cláudio Machado Seg Set 26, 2016 6:25 pm



    DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & cód & "-" & Me!Empr & " .pdf", true

    Veja se é isso.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]salvar relatorio com nome de campos 90dssg para agradecer a dica que solucionou seu problema.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]salvar relatorio com nome de campos Empty Re: [Resolvido]salvar relatorio com nome de campos

    Mensagem  =>Nois Seg Set 26, 2016 8:13 pm

    de uma verificada neste link

    https://www.maximoaccess.com/t1628-resolvidosalvar-relatorio-em-pdf


    ou nesta função ela procura se existe uma impressora pdf

    Private Sub btnPrint_Click()
    Dim S As String, P As Printer

    For Each P In Application.Printers
    If InStr(1, P.DeviceName, "pdf", vbTextCompare) > 0 Then
    S = P.DeviceName
    Exit For
    End If
    Next

    If S <> "" Then
    Me.Printer = P
    DoCmd.PrintOut
    Else
    MsgBox "Não tem Impressora PDF"
    Exit Sub
    End If

    End Sub


    .................................................................................
    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]salvar relatorio com nome de campos Empty Re: [Resolvido]salvar relatorio com nome de campos

    Mensagem  ictsp Ter Set 27, 2016 7:21 am

    Bom dia !

    Gostaria de agradecer muito a ajuda dos nossos colegas Claudio Machado e Nois que, gentilmente, se dispuseram em me ajudar. Através da dica do Claudio consegui acrescentar mais campos para o nome do pdf e com o link disponibilizado pelo Nois consegui tbém inserir a data, ficando dessa forma o codigo:

    DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & Me!EMPR & "_" & loc & "_" & Format(data(), "ddmmyy") & " .pdf", True

    Agora, consigo indentificar o pdf pelo nome da empresa, o cód e a data do documento.

    Muito obrigado !!
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]salvar relatorio com nome de campos Empty Re: [Resolvido]salvar relatorio com nome de campos

    Mensagem  Cláudio Machado Ter Set 27, 2016 10:56 am

    Bom dia.
    Que bom que resolveu.
    O fórum agradece o retorno.
    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]salvar relatorio com nome de campos 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: Ter Abr 13, 2021 10:21 am