Salvar impressão de relatório em pdf com o nome que está no campo Cliente

Oi

Tenho um relatório que exibe informações dos clientes, nele tem os campos: Código e Cliente, também no relatório tem um botão(imprimir) para imprimir essas informações. Ao clicar nele abre a caixa de diálogo Salvar para dar nome ao arquivo e salvar na pasta escolhida. Porém gostaria que quando essa caixa de diálogo abrisse já puxasse automaticamente  o nome que esta no campo Cliente, que nesse caso é "o próprio nome do cliente" e o usuário só teria que clicar em salvar ao invés de digitar o nome.

O código que coloquei foi esse:

Código:

Private Sub btn_imprimir_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
If MsgBox("Imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
strDocName = "rel_cadCliente"
strFilter = "Código=Forms!frm_cadCliente!Código"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End If
End Sub

Alguém por favor sabe o que fazer?

Vlw!

Up

Se abrir só para clicar em gravar, não seria melhor já salvar diretamente sem ser necessário o usuário clicar em nada?

Se sim, veja abaixo uma mensagem com código de exportação/salvamento. Talvez ajude
https://www.maximoaccess.com/t40800-resolvidonao-salvar-o-pdf-caso-nao-exista-dados#277774

Boa noite DamascenoJr.

Salvar diretamente puxando o nome que esta no campo Cliente já consegui e também salvar na pasta local. Porém gostaria que o nome que foi cadastrado no campo Cliente fosse puxado automaticamente para a caixa de dialogo "Salvar". Assim o usuário poderia também escolher a pasta onde gostaria de salva-lo sem precisar digitar o nome que vai salvar o pdf.
É que eu não sei quais ajustes podem ser feitos no código para que isso aconteça. Já pesquisei bastante e não consegui.

Obrigado por responder!

No link abaixo o código que mostra como abrir a caixa pra procurar pasta, com isso, basta unir ao código de salvar direto
https://www.maximoaccess.com/t38582-buscar-diretorio-de-pasta-ou-arquivo-interativamente

Se não conseguir, anexe um exemplo para que eu ou outro membro possa ajudar melhor.