[Resolvido]Imprimir e gravar relatório em PDF

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

Vê aqui

https://www.maximoaccess.com/t27487-erro-ao-gerar-pdf-e-imprimir#193330

https://www.maximoaccess.com/t27487-erro-ao-gerar-pdf-e-imprimir#193087

https://www.maximoaccess.com/t32939-exibir-relatorio-em-formato-pdf#226722

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

Aqui

https://www.maximoaccess.com/t39345-imprimir-relatorio-em-pdf#270070

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

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

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

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

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

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

Em cheio!! Muito obrigado pela ajuda

Abraço

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