[Resolvido]Alterar nome Report ao enviar por email.

Bom dia,

Tenho uma pequena duvida em relação a como alterar o nome de um relatório ao enviar por email.

o nome do relatório a alterar é "Query2" e queria passa-lo para o valor que se encontra no campo "text339.value".
É possivel?????
Podem dar uma dica??

Codigo que estou a utilizar para enviar email com PDf do report.

DoCmd.SendObject acSendReport, "Query2", acFormatPDF, Text34.Value, , , Enc & " - " & Cliente_Riopele, "Encontra-se em anexo o ficheiro com as tiras enviadas da encomenda " & Enc

Veja o simples;

Private Sub SeuBotão_Click()
DoCmd.OpenReport "Query2", acViewDesign, , , acHidden
Reports!Query2.Caption = Me.text339.Value
DoCmd.Close acReport, "Query2", acSaveYes
DoCmd.SendObject acSendReport, "Query2", acFormatPDF, Me.Text34.Value, , , Enc & " - " & Cliente_Riopele, "Encontra-se em anexo o ficheiro com as tiras enviadas da encomenda " & Enc
End Sub

Obrigado JPaulo...     

Ficou um espectaculo....
Sem nada a dizer, quem sabe sabe.
Agora tb fiquei a saber como, obg.

Obrigado pelo retorno o forum agradece.