[Resolvido]A ação outputTo foi cancelada

Boa tarde,

Bom, esse assunto já foi muito debatido aqui no fórum, sobre esse erro: A ação outputTo foi cancelada, ao abrir relatórios, no entanto gostaria de insistir, visto que o código que tenho abaixo, funciona para alguns, no entanto pra mim sempre dá erro, e o mais curioso ainda, é que logo no início que estava adaptando no meu projeto, não dava erro, mas agora, dá erro direto.

Onde estou errando?

Meu access é 2016.







Private Sub Gerar_Cadastro_Click()


'On Error Resume Next



Dim strArquivo As String
Dim strLocal As String

strArquivo = "Pedido " & Date & ".pdf"
'strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo

'DoCmd.OutputTo acOutputReport, "Relatório_Pedidos", acFormatPDF, strLocal


DoCmd.OutputTo acOutputReport, "Relatório_Pedidos", acFormatPDF, "c:\Relacao_Pedidos\Relatório_Pedidos.pdf"


strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo

'DoCmd.OpenReport "Relatório_Cadastro", acViewPreview, , "Nome_Func = " & Me!Nome_Func
' MsgBox "Cadastro salvo no formato PDF na Pasta: C:\Users\Usuario\Documents\Relacao_Pedidos", vbInformation, "Cadastro salvo"

End Sub

Ismael

Aparentemente, a estrutura do comando está correta.

O que precisa é verificar é o nome e o caminho do arquivo.

O inglês é um idioma que não usa acentos, evite colocar eles.

Somente acentue as palavras que aparecerão na tela e no relatório.

Se tiver tudo certo e ainda continuar a dar erro, experimente colocar

On error resume next

e veja o que acontece.

{ }'s

Nob,

Segui a tua dica, retirei os acentos que tinha, e mais alguns pequenos ajustes conforme abaixo, e a principio está funcionando:

Vou colocar como resolvido, e qualquer coisa, reabro o tópico.


Dim strArquivo As String
Dim strLocal As String

'strArquivo = "Pedido" & ".pdf"
strArquivo = "Pedido" & Format(Now(), " dd-mm-yyyy " & "hhnnss"".pdf")

'strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo
strLocal = "C:\Relacao_Pedidos\" & strArquivo



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


MsgBox "Cadastro salvo no formato PDF na Pasta: C:\Relacao_Pedidos", vbInformation, "Cadastro salvo"

Ismael

Ótimo que deu certo!

Boa sorte!

Balem