[Resolvido]salvar relatorio com nome de campos

Boa tarde! Gostaria de saber se é possível salvar um relatório usando dois campos para dar nome ao mesmo.
Atualmente, estou usando esse código:

DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & Me!Empr & " .pdf", False

mas gostaria de acrescentar o campo "cód" tbém, para facilitar a localização do documento.

Também gostaria de saber se é possível permitir ao usuário escolher o local onde quer salvar o arquivo. (escolher qualquer pasta)

Desde já, agradeço a ajuda dos colegas!!

DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & cód & "-" & Me!Empr & " .pdf", true

Veja se é isso.

de uma verificada neste link

https://www.maximoaccess.com/t1628-resolvidosalvar-relatorio-em-pdf


ou nesta função ela procura se existe uma impressora pdf

Private Sub btnPrint_Click()
Dim S As String, P As Printer

For Each P In Application.Printers
If InStr(1, P.DeviceName, "pdf", vbTextCompare) > 0 Then
S = P.DeviceName
Exit For
End If
Next

If S <> "" Then
Me.Printer = P
DoCmd.PrintOut
Else
MsgBox "Não tem Impressora PDF"
Exit Sub
End If

End Sub

Bom dia !

Gostaria de agradecer muito a ajuda dos nossos colegas Claudio Machado e Nois que, gentilmente, se dispuseram em me ajudar. Através da dica do Claudio consegui acrescentar mais campos para o nome do pdf e com o link disponibilizado pelo Nois consegui tbém inserir a data, ficando dessa forma o codigo:

DoCmd.OutputTo acOutputReport, "teste", acFormatPDF, "C:\ " & Me!EMPR & "_" & loc & "_" & Format(data(), "ddmmyy") & " .pdf", True

Agora, consigo indentificar o pdf pelo nome da empresa, o cód e a data do documento.

Muito obrigado !!

Bom dia.
Que bom que resolveu.
O fórum agradece o retorno.
Abraço