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


2 participantes

    [Resolvido]Guardar Relatório PDF.

    avatar
    Convidado
    Convidado


    [Resolvido]Guardar Relatório PDF. Empty Guardar Relatório PDF.

    Mensagem  Convidado 11/11/2013, 15:14

    Olá a todos....

    Tenho uma duvida e gostaria de saber se é ou não possivel o seguinte.

    Tenho uma BD onde quando quero guardar um relatório em PDF ele pergunta-me onde quero guardar e o nome do relatório (predefinido é o nome em que está criado na BD). é possivel ao criar o ficheiro em PDF ele assumir o nome de um valor de um campo??



    Agradeço ajuda... Smile
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Guardar Relatório PDF. Empty Guardar Relatório PDF

    Mensagem  good guy 11/11/2013, 19:45

    Olá Roberto,

    Sim é possível ao criar um campo do tipo Anexo. Apenas a partir da versão 2010 do Access.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Guardar Relatório PDF. Empty Re: [Resolvido]Guardar Relatório PDF.

    Mensagem  Silvio 11/11/2013, 19:52

    Grande Eduardo...boa tarde.

    Se me permite, sem prejuízo ao tópico, dando um pitaquinho.

    Código:
    Private Sub bt_gerarPDF_Click()
    Dim strArquivo As String
    Dim strLocal As String
     
    strArquivo = "Orçamento Nº" & Me!IDOservico & ".pdf"
                    ' nome do arquivo a ser salvo      chave prima

    strLocal = CurrentProject.path & "\enviados\" & strArquivo ' criar essa pasta onde está o banco de dados
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "rptOservico", acViewPreview, , "IDOservico=" & Me!IDOservico, acHidden
     '                nome do relatorio               chave prima       chave prima
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "rptOservico", acFormatPDF, strLocal
     
    'Fecha o relatório
    DoCmd.Close acReport, "rptOservico"
    Abraços !


    .................................................................................
    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
    Convidado
    Convidado


    [Resolvido]Guardar Relatório PDF. Empty Re: [Resolvido]Guardar Relatório PDF.

    Mensagem  Convidado 12/11/2013, 09:20

    Olá a todos.

    Desde já agradeço a colaboração de todos para a resolução do meu problema, e após ter usado o código que o Silvio postou e adaptado a minha BD, fico a BOMBAR. Smile Smile Smile

    Muito obrigado a todos. cheers 
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Guardar Relatório PDF. Empty Re: [Resolvido]Guardar Relatório PDF.

    Mensagem  Silvio 12/11/2013, 09:48

    O fórum agradece o retorno.


    .................................................................................
    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."

    Conteúdo patrocinado


    [Resolvido]Guardar Relatório PDF. Empty Re: [Resolvido]Guardar Relatório PDF.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 11:14