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

4 participantes

    [Resolvido]Imprimir e gravar relatório em PDF

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 15/6/2021, 23:14


    Tenho um botão no formulário que ao carregar ele imprime automáticamente um relatório de um determinado utente. Como faço para ele além de imprimir ele também salve esse relatório em PDF na pasta desse utente com o seguinte nome: "InicioTOD_20210615_14.50.05.pdf" em que "20210615" é a data actual neste formato "aaaammdd" e "14.50.05" é a hora actual.

    Este é o código para imprimir e imprimi correctamente:

    Private Sub BtnInicioTOD_Click()

    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String

    If MsgBox("Imprimir registo?", vbQuestion + vbYesNo, "IMPRIMIR") = vbYes Then
    strDocName = "REL_INICIO_TOD"
    FiltroRelatorioUtente = Me.TxtID
    DoCmd.OpenReport strDocName
    DoCmd.OpenReport acCmdPrint, acViewPreview
    End If
    End Sub
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Imprimir e gravar relatório em PDF

    Mensagem  toyebom 16/6/2021, 00:10



    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 16/6/2021, 13:50

    Não funciona. O máximo que consegui foi gravar na pasta onde estão todos os utentes (deveria gravar na pasta do utente específico) mas depois abrindo esse pdf ele não tem qualquer informação [Resolvido]Imprimir e gravar relatório em PDF 1f629
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4528
    Registrado : 06/11/2009

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  Assis 16/6/2021, 14:06



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 16/6/2021, 14:42

    Eu consigo com o mesmo botão imprimir e gravar o relatório emitido em pdf.
    O que acontece é que ele grava na pasta (\PROCESSOS) mas eu quero que ele grave na pasta do utente.

    Quando eu introduzo um novo cliente ao gravar, o sistema além de gravar os dados do cliente cria automáticamente uma pasta com o nome desse cliente (Exº "\PROCESSOS\MARIA ALBERTINA"). Como fazer que o relatório que é desse utente vá directamente para essa pasta e não para a pasta "\PROCESSOS" (Exº "\PROCESSOS\MARIA ALBERTINA\MARIA ALBERTINA - INICIO_TOD 16062021.pdf"). O nome do pdf criado teria o Nome - INICIO_TOD Data Actual.

    Private Sub BtnInicioTOD_Click()

    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    Dim strArquivo As String
    Dim strLocal As String

    If MsgBox("Imprimir registo?", vbQuestion + vbYesNo, "IMPRIMIR") = vbYes Then
    strDocName = "REL_INICIO_TOD"
    FiltroRelatorioUtente = Me.TxtID
    DoCmd.OpenReport strDocName
    DoCmd.OpenReport acCmdPrint, acViewPreview
    End If

    strArquivo = "" & TxtNome & " - " & "INICIO_TOD " & Format(Now, "ddmmyyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\PROCESSOS\" & strArquivo
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS\" & Form_FRM_UTENTES.TxtNome.Value

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  ahteixeira 16/6/2021, 23:16

    Olá a todos

    Alberto Rodrigues,

    O caminho o ideal é ser sempre configurado num campo (configuracoes por exemplo) pois se mudar de pasta, servidor etc, vai ter que mudar o codigo.
    Se tiver desta forma só altera a unidade e pasta de raiz e se o código estiver em conformidade tudo é mais simples.

    Da forma que estou a ver o código está a criar dois ficheiros PDF em locais distintos:
    Código:
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS\" & Form_FRM_UTENTES.TxtNome.Value

    Tente desta forma:
    Código:
    strArquivo = "\" & Form_FRM_UTENTES.TxtNome & " - " & "INICIO_TOD " & Format(Now, "ddmmyyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\PROCESSOS" & strArquivo
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS" & strArquivo

    Não testado, mas "a olho".

    Abraço
    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 17/6/2021, 10:19

    Efectivamente imprime e grava o relatório, mas grava na pasta "\PROCESSO" e não na pasta do utente...
    Neste caso fiz o teste com a "Sara", imprimiu correctamente o relatório da Sara e gravou o relatório na pasta "\PROCESSOS" quando deveria ter guardado na pasta "\PROCESSOS\SARA....\Sara.... INICIO_TOD 17062021.pdf".

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  ahteixeira 17/6/2021, 14:45

    Olá a todos

    Qual é o caminho no computador da pasta "utentes", pode explicar melhor, creio que será só ajustar.
    Deve compreender o código que tem , já sabe qual das linhas do código é que está a gravar?
    É a primeira? É a segunda?

    Comente uma delas com aspa simples para saber qual é que se deve alterar.

    Abraço
    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 17/6/2021, 15:37

    Boa tarde,

    O caminho para gravar será:
    "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS\Nome do Utente\xxxx.pdf"

    O Nome do Utente será aquele que no momento estiver selecionado

    Obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  ahteixeira 17/6/2021, 16:34

    Olá,

    Disse "PROCESSO" e não na pasta do utente" ???
    Fiquei com a ideia que teria uma Pasta ou Sub-Pasta com nome Utente.

    Quantos ficheiros pretende gravar 1 ou 2, só para compreender com base no codigo que partilhou o que pretende.

    Mais uma vez "a olho", será isto:
    Código:
    strArquivo = "\" & Form_FRM_UTENTES.TxtNome & "\" & "INICIO_TOD " & Format(Now, "ddmmyyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\PROCESSOS" & strArquivo
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_INICIO_TOD", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS" & strArquivo

    Abraço

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 24/03/2012

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  cantu 18/6/2021, 10:14

    Em cheio!! Muito obrigado pela ajuda

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

    [Resolvido]Imprimir e gravar relatório em PDF Empty Re: [Resolvido]Imprimir e gravar relatório em PDF

    Mensagem  ahteixeira 18/6/2021, 13:43

    Olá Alberto Rodrigues,

    Fico feliz por ter ajudado, obrigado pelo retorno.
    Ficarei mais feliz que perceba o que foi alterado e como foi "construído" o caminho e nome de ficheiro.

    Abraço a todos

    cantu gosta desta mensagem


      Data/hora atual: 6/12/2021, 17:12