Ao salvar em PDF a ação OutputTo é cancelada

Prezados colegas,
              Eis o problema de um leigo:
  Ao salvar um arquivo em PDF através de um botão que está no formulório, ocorre o seguinte erro

Erro em tempo de execução '2501'":
A ação OutputTo foi cancelada

O código está da seguinte forma:

Private Sub BtnPdf_Click()


Dim strArquivo As String
Dim strLocal As String

strArquivo = "RelSemanCilindros " & ".pdf"

strLocal = CurrentProject.Path & "\4 - Rel Progr Cilindros\" & strArquivo

DoCmd.OutputTo acOutputReport, "RelProgramaCilindrosPrazos", acFormatPDF, strLocal


Podem me ajudar?

Andre

Nessa frase:

strArquivo = "RelSemanCilindros " & ".pdf"

Observe que tem um espaço entre o s e "

o correto:

strArquivo = "RelSemanCilindros" & ".pdf"

Evite espaços entre nomes de controles, pastas, etc..., isso dificulta a leitura do algorítimo.

Veja se funfa.

[ ]'s

Opa,
Valeu o apoio, erro de digitação, lamentavelmente o erro continua o mesmo...




Abraço

Rapaz, vou tentar te ajudar, vamos ver se para você vai dar certo!

Vamos lá!

Apenas um detalhe, testei em um projeto meu aqui e quando a pasta destino não existe, ele não estava criando uma nova, ou seja, no seu caso a pasta destino "4 - Rel Progr Cilindros" já existe, correto?


tenta substituir por este comando abaixo,

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="RelProgramaCilindrosPrazos", OutputFormat:="PDF", outputfile:=strlocal


Boa sorte!

Abs.