[Resolvido]relatorio nao gera em PDF

bom dia amigos tudo bem?


estou com impasse no momento que nao esta gerando pdf, estou com access 2016

estava lendo mais coisa respeito aplicaquei varios teste, porem sem exito.

esta dando erro 2501

ação outpuTO foi cancelada.

segue o codigo abaixo:

Código:


DoCmd.OpenReport "ContratoComercial", acViewPreview, , , acWindowNormal 'este codido precisa ficar aqui por alguma razão, pois buga o botão estou tentado descobrir

Dim strArquivo As String
Dim strLocal As String
Dim path As String



path = DLookup("Razão_Social", "TABELA_CONTRATO", "CODPASTA=" & Forms!IMPRIMIR_CONTRATO!CODPASTA)

' nome do arquivo a ser salvo      chave prima
strArquivo = "Contrato_" & path & ".pdf"

' criar essa pasta onde está o banco de dados
strLocal = CurrentProject.path & "\enviados\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "ContratoComercial", acViewPreview, , , acHidden
 

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "ContratoComercial", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "ContratoComercial"


Me.Visible = False

se alguem puder dar uma luz

abraços

alguem pra dar um luz?

bom gente finalmente consegui resolver


o problema estava na pasta destino que nao estava sendo encontrato por isso o erro,

Código:

' criar essa pasta onde está o banco de dados
strLocal = CurrentProject.path & "\enviados\" & strArquivo

troquei o nome e coloquei pasta nova e resolveu


resolvido abraços