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]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Ismael Silva em 31/3/2019, 18:47

    Boa tarde,

    Estou utilizando o código a seguir para salvar o meu relatório em determinada pasta, porém ao clicar no botão, onde tem o código, ele salva direto na pasta com o nome que está, e o que saber, é se tem como adaptar esse código para que ele abra a pasta, e me permita renomear o nome do arquivo antes de salvar. Eu consigo fazer isso, se utilizar as macros, porém, quero saber se há um jeito de se fazer isso via código, não dando, eu utilizarei a macro mesmo.

    DoCmd.OutputTo acOutputReport, "SeuRelatorio", acFormatPDF, "C:\SeuRelatorio.pdf", False

    Obrigado
    Ismael
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4304
    Registrado : 20/04/2011

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Silvio em 1/4/2019, 12:12

    Provavelmente seu relatório deve ser filtrado para poder ver.

    Então...

    Private Sub bt_imprimir_Click()
    On Error GoTo fim
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "SeuRelatorio", acFormatPDF, strLocal

    'Fecha o relatório
    DoCmd.Close acReport, "SeuRelatorio"

    fim:
    If Err.Number = 2501 Then
    MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
    End If
    End Sub

    É só adaptar as tuas necessidades.

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Ismael Silva em 5/4/2019, 16:32

    Silvio,

    Estou testando agora, só uma dúvida, no seu código, ele abre uma pasta, e me permite renomear o arquivo, como de fato eu queria, mas se eu quiser definir a pasta para abrir, é possível?

    No caso eu quero que abra esta pasta: "C:\SeuRelatorio.pdf", e atualmente abre

    Tentei assim:

    Não deu.

    DoCmd.OutputTo acOutputReport, "Relatorio_Fat_Clientes", acFormatPDF, "C:\SeuRelatorio.pdf", strLocal


    Obrigado!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4304
    Registrado : 20/04/2011

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Silvio em 5/4/2019, 17:26

    Algo parecido com isso.


    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "NomeSeuRelatório", acViewPreview, , "ChavePrimaria=" & Me!ChavePrimaria, acHidden

    'definindo o local a ser salvo, fixando o mesmo
    DoCmd.OutputTo acOutputReport, "NomeSeuRelatório", acFormatPDF, "C:\Seu Relatorio.PDF\" & ".pdf"

    'fechando o relatório
    DoCmd.Close acReport, "NomeSeuRelatório"



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Ismael Silva em 5/4/2019, 18:38

    Silvio,

    Ainda não consegui fazer funcionar. O que posso estar fazendo errado?

    Segue arquivo

    https://www.dropbox.com/s/yx6zmaoqbdv9n5t/Controle%20Bruno.accdb?dl=0


    Frm_Filtros

    Botão: Gerar Relatório 3

    Obrigado!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4304
    Registrado : 20/04/2011

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Silvio em 5/4/2019, 19:11

    DoCmd.OpenReport "Relatorio_Fat_Clientes", acViewPreview, , "Cliente= " & "'Me!Cliente '", acHidden


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  Ismael Silva em 7/4/2019, 14:28

    Silvio,

    Não deu certo, no entanto, vou fechar o tópico.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 569
    Registrado : 12/04/2016

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  marcelo marques em 7/4/2019, 15:57

    Bom dia pessoal apenas para participar deste tópico
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 569
    Registrado : 12/04/2016

    [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo. Empty Re: [Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

    Mensagem  marcelo marques em 7/4/2019, 22:17

    Boa noite da uma olhadinha nesta vídeo aula do Giberlanio Rocha

    https://youtu.be/a_D-T9cLUTU



    Para salvar em uma pasta específica

    https://youtu.be/-sL6IXZWcEc

      Data/hora atual: 24/4/2019, 07:34