[Resolvido]nome relatorio pdf

Boa tarde!

Quero salvar um relatório em pdf e estou tentando com o seguinte código:

Private Sub save_Click()
Dim strarquivo As String
Dim strlocal As String
strarquivo = "& Me!EMPR &" & Format(data(), "ddmmyy") & "_" & loc & ".pdf"
DoCmd.OutputTo acOutputReport, strarquivo, acFormatPDF, SRTLOCAL, True
End Sub

Porém, na hora de escolher o local para salvar o arquivo, aparece da seguinte maneira:

Me!EMPR & 290916_1

o problema é esse começo, onde deveria aparecer o nome da empresa. Alguem sabe como resolver?
Desde já, agradeço antecipadamente a ajuda dos colegas!!

coloque assim:

strarquivo = Me!EMPR & "-" & Format(data(), "ddmmyy") & ".pdf"


este loc voce nao declarou entao tirei

& loc & ".

Bom dia Nois!

Realmente, o seu código está perfeito. Agora, estou com um pequeno problema na hora de salvar. Pesquisando no forum, achei esse código do colega Claudio Mas, que permite escolher o local onde quero salvar o arquivo:

Dim fso As Object

Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, f.SelectedItems(1) & "\Contato.pdf", False
End If

Estou tentando adaptar dessa forma:
Dim fso As Object
Dim strarquivo As String
strarquivo = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc &".pdf "
Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, strarquivo, acFormatPDF, fso.SelectedItems(1) & "\strarquivo.pdf", False
End If

Está dando o seguinte erro:

Erro de execução 2059
O BD não pode localizar o objeto '|1'

Vc saberia me dizer o que está errado?

Obrigado!!

olhe a resolução deste tópico sua pergunta é semelhante

https://www.maximoaccess.com/t28030-resolvidosalvar-relatorio-com-nome-de-campos

Nois, desculpe minha ignorância, estou desenvolvendo meu projeto em cima das informações que retiro dos colegas do fórum. Não tenho muita intimidade com o access kkkk.

Depois de muitas tentativas, finalmente cheguei onde queria. O código ficou da seguinte maneira:

Dim str As String
str = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

Dim fso As Object
Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, "rel", acFormatPDF, fso.SelectedItems(1) & "\" & str, True

Agora consigo escolher qualquer pasta e salvar com o nome desejado.

Desde já, agradeço muito sua ajuda!!

Abraço!!

Muito obrigado Nois pela ajuda!!

ficou assim:

Dim str As String
str = Me!EMPR & "_" & Format(data(), "ddmmyy") & "_" & loc & ".PDF"

Dim fso As Object
Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, "rel", acFormatPDF, fso.SelectedItems(1) & "\" & str, True

Agora, consigo salvar o arquivo em qualquer pasta já com o nome pré-determinado.


MUITO OBRIGADO!!!

Agradecemos o Retorno.

sds.