[Resolvido]Criar pdf no formulario

Olá boas tardes estou adpatar este codigo para criar PDF e já está a funcionar mas tem um senão que gostaria resolvido que é seguintes:
quando guarda o ficheiro na pasta, guarda com esta informação Guia_Transp Nº903-02-2012
E eu queria que guarda-se assim Guia_Transp_Nº9_03-02-2012 ou de forma que o numero não fica-se pegado á data

Private Sub P_D_F_Click()
On Error Resume Next
If MsgBox("Confirma a Impressão da Guia_Transp Nº " & Me.ID & "?", vbYesNo, "Confirmação") = vbYes Then
DoCmd.OpenReport "Guia_Transp", acPreview, , "ID =" & Me.ID
If MsgBox("Criar P. D. F. da Guia_Transp Nº " & Me.ID & "?", vbYesNo, "Confirmação") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("Guia_Transp", vbNullString, Caminho & "Guia_Transp Nº " & Me.ID & Date & ".PDF", False, False)

Else
DoCmd.CancelEvent
End If
On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else

End If
End Sub

Boa tarde José

Já vi este comando ....

Aqui talvez ... teste

blRet = ConvertReportToPDF("Guia_Transp", vbNullString, Caminho & "Guia_Transp_Nº" & Me.ID & Date & ".PDF", False, False)


No ID deve ter que estar formatado antes ????

É sim, este codigo é do Srº Assis tenho tido uma boas lições com os seus trabalho apresentados aqui neste forum.
Em relação ao que pretendo o Nº da Guia continua pegado com a data exemplo Nº23403-02-2012 eu gostaria que fosse assim se possivel, Nº234 03-02-2012 peço desculpa mas começei a gostar do access relativamente á muito pouco tempo e como deve calcular isto está dificil.

Obrigado

José

Para começar deixe lá o Sr.

Poste aqui parte da sua BD para ver se consigo ajudar...

LINK
http://dl.dropbox.com/u/55191948/TESTE/teste.mdb
Obrigado

José

Neste BD só tem um form nome "F_Ordens"

Não fala em Guia

Ordem_Execução Nº 03-02-2012

Assis este foi um exemplo que enviei em de ser guias_transp, foi Ordem_Execução, ambas ficam com o numero pegado na data quando gera o pdf. Ou seja Ordem_Execução_Nº000104-02-2012 e eu queria que fica-se assim (Ordem_Execução_Nº0001_04-02-2012)

Obrigado

Teste

Mude só esta linha

blRet = ConvertReportToPDF("Ordem_Execução", vbNullString, Caminho & "Ordem_Execução Nº " & Me.NOrdens & "_" & Date & ".PDF", False, False)

Assis bingo como o dificil é facil
muito obrigado pela ajuda
obrigado

Faltou o resolvido

Obrigado José

pelo retorno