[Resolvido]Erro de tempo de execução '2501' - a ação output foi cancelada

Ola a todos já estou com mais de uma semana nesta pendência e não consegui resolver...
tenho um bd que gera um relatório, queria que ao clicar para imprimir ele salve o relatório em uma pasta no formato pdf e abra o mesmo pdf no leitor nativo do próprio windows, isso eu consegui em um outro bd que fiz, e ta funcionando perfeitamente, peguei o mesmo código e coloquei no meu bd atual e esta dando erro em tempo de execução '2501' a ação output foi cancelada!

não consegui fazer ele salvar e nem abrir o pdf

o código é este:

'On Error Resume Next
Dim strrelatorio As String
Dim strcodigo As String
Dim strArquivo As String
Dim strLocal As String

strrelatorio = "R_LAUDO"
strcodigo = "[Código]=" & Me![Código]
strArquivo = "Nº-" & Me!ATENDIMENTO & ".pdf"
strLocal = CurrentProject.Path & "\logs\Laudos\" & strArquivo

DoCmd.OpenReport strrelatorio, acViewPreview, , strcodigo, acHidden
DoCmd.OutputTo acOutputReport, "R_LAUDO", "PDFFormat (*.pdf)", strLocal, True 'aqui está acontecendo o erro
DoCmd.Close

no meu bd este código está no evento "ao clicar" do formulário "forsublistaresult_print" no campo "ATENDIMENTO"
desde já agradeço a ajuda!

link do meu bd

Att:Gleilson

Algumas falhas nesse trecho;

Substitua por este e teste por favor;

Código:

Private Sub ATENDIMENTO_Click()
'On Error Resume Next
Dim strrelatorio As String
Dim strcodigo As String
Dim strArquivo As String
Dim strLocal As String

strrelatorio = "R_LAUDO"
'limpa o filtro
strcodigo = ""
'aplica o novo filtro
strcodigo = "[Código]=" & Me![Código]
strArquivo = "Nº-" & Me!ATENDIMENTO & ".pdf"
strLocal = CurrentProject.Path & "\logs\Laudos\" & strArquivo

DoCmd.OpenReport strrelatorio, acViewPreview, , strcodigo, acHidden

'aqui você vê na janela immediate do VBA se o caminho é o correto
Debug.Print strLocal

DoCmd.OutputTo acOutputReport, "R_LAUDO", "PDFFormat (*.pdf)", strLocal, True

'fecha o relatorio
DoCmd.Close acReport, "R_LAUDO"
End Sub

JPaulo, deu certo, legal que na linha de converter em pdf ficou o mesmo código...só me diz se eu quiser salvar com atendimento e ano_atendimeto...nesta linha:

strArquivo = "Nº-" & Me!ATENDIMENTO & ".pdf"

pra ele salvar assim: Nº-1589/2018

como posso fazer?

Obrigado pela disponibilidade

Se você renomear um ficheiro qualquer com o simbolo / verá que o sistema operativo não permite.

No limite pode ser assim;

Código:

strArquivo = "Nº-" & Me!ATENDIMENTO & "-" & Year(Date) & ".pdf"

Agradeço novamente JPaulo, depois de uma semana pelejando com esta parte agora posso prosseguir, so pra deixar aqui pra quem precise posteriormente meu código final ficou assim:

Código:



'Código by JPaulo @maximoaccess
'On Error Resume Next
Dim strrelatorio As String
Dim strcodigo As String
Dim strArquivo As String
Dim strLocal As String

strrelatorio = "R_LAUDO"
'limpa o filtro
strcodigo = ""
'aplica o novo filtro
strcodigo = "[Código]=" & Me![Código]
strArquivo = "Nº-" & Me!ATENDIMENTO & "_" & Me!ANO_ATENDIMENTO & ".pdf" [color=#00cc00]'ATENDIMENTO e ANO_ATENDIMENTO são os campos do relatório que desejo salvar como nome do pdf[/color]
strLocal = CurrentProject.Path & "\logs\Laudos\" & strArquivo

DoCmd.OpenReport strrelatorio, acViewPreview, , strcodigo, acHidden

'aqui você vê na janela immediate do VBA se o caminho é o correto
Debug.Print strLocal

DoCmd.OutputTo acOutputReport, "R_LAUDO", "PDFFormat (*.pdf)", strLocal, True
'fecha o relatorio
DoCmd.Close acReport, "R_LAUDO"

Código by JPaulo @maximoaccess

JPaulo, só mais uma...seria bom eu ativar o On Error Resume Next no início do Código?

Eu não recomendo user o "On Error Resume Next ".

Esse trecho inibe todo e qualquer erro e se existir algum erro você jamais saberá o que está a acontecer.

É melhor fazer tratamento de erros;

https://www.maximoaccess.com/t7058-tratamento-de-erros-personalizado

Thanks

Obrigado pelo retorno o forum agradece.