Como puedo Exportar informe a pdf access dándole nombre

Ya te respondí en el foro (http://nksvaccessolutions.com/Foro/viewtopic.php?f=8&p=489#p489 ), pero te copio aquí la respuesta:

Dos cosas:
1º/ ¿Para qué tienes estas dos lineas si no las usas para nada?:

Dim miInforme As String

miInforme = Me.txtFecha

2º/ Lo único que tienes que modificar es la parte del nombre del archivo de destino en el DoCmd. OutPutTo por una variable en la que previamente le asignes el nombre con el que quieres te lo guarde, es decir, cambia esto:
"C:\Users\KIKE\Desktop\Informes\" & Format(Date, "ddmmyy") & ".pdf"
por esto:
"C:\Users\KIKE\Desktop\Informes\" & nombreArchivo & ".pdf"
Y previamente la declaras (Dim nombreArchivo As String) y le asignas el nombre como más te convenga (nombre del informe + fecha, nombre informe + algún otro campo, usas un InputBox para preguntar el nombre...)

¡Gracias! 

Muchas gracias como siempre funciona correctamente, lo he dejado así:

Dim resp As Integer
Const miRuta As String = "C:\Users\KIKE\Desktop\Informes\"
Dim nombreArchivo As String
resp = MsgBox("¿Desea ver el informe?", vbQuestion + vbYesNo, "CONFIRMAR")
If resp = vbYes Then
DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#"
Else
nombreArchivo = InputBox("Escriba Nombre del PDF", "PDF")
DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#", acHidden
DoCmd.OutputTo acOutputReport, "InfDisponibilidad", "PDFFormat(*.pdf)", "C:\Users\KIKE\Desktop\Informes\" & nombreArchivo & ".pdf", False, "", , acExportQualityPrint

creo que el inputbox debe de ir hay no?

una cosa más si quieres abro otra pregunta pero es de si o no creo, a esta aplicación le estoy realizando el ribbon personalizado y he leido una pregunta en todoexpertos que le da problemas con el runtime.

Mi pregunta es si en unos ordenadores donde se usa esta aplicación mediante el runtime ya que no tienen access mi ribbon personalizado para ella no funcionaría?

Kike: Lo que yo haría en éste caso es que el Nombre del Fichero tomara la fecha con la Hora y así no hay duda.

Sustituye: Format(Date, "ddmmyy") por >> FormatDateTime (Now(), vbGeneralDate)

La verdad es que no lo he probado, pero debería funcionar. Saludos >> Jacinto

He probado y me da error 2501 la opción outputto se cancelo

De error en esta línea:

DoCmd.OutputTo acOutputReport, "InfDisponibilidad", "PDFFormat(*.pdf)", "C:\Users\KIKE\Desktop\Informes\" & FormatDateTime(Now(), vbGeneralDate) & ".pdf", False, "", , acExportQualityPrint

el codigo esta así:

Dim resp As Integer
Const miRuta As String = "C:\Users\KIKE\Desktop\Informes\"
Dim miInforme As String
miInforme = Me.txtFecha
resp = MsgBox("¿Desea ver el informe?", vbQuestion + vbYesNo, "CONFIRMAR")
If resp = vbYes Then
DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#"
Else
DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#", acHidden
DoCmd.OutputTo acOutputReport, "InfDisponibilidad", "PDFFormat(*.pdf)", "C:\Users\KIKE\Desktop\Informes\" & FormatDateTime(Now(), vbGeneralDate) & ".pdf", False, "", , acExportQualityPrint

Kike: Prueba quitandole los parentesis a Now() o se que te quedaría >>

FormatDateTime (Now, vbGeneralDate)

Si sigue el fallo me comentas. Saludos >> Jacinto

Kike: Creo que te he confudido y el error puede venir porque el Nombre del Fichero tenga los dos puntos o las Barras de la Fecha.

Por ello es conveniente adecuarlo antes de éste modo:

Inmediatamente después de ... acHidden

Dim StrFechaHora As String
StrFechaHora = CStr(FormatDateTime(Now(), vbGeneralDate))
StrFechaHora = Replace(StrFechaHora, "/", "")
StrFechaHora = Replace(StrFechaHora, " ", "")
StrFechaHora = Replace(StrFechaHora, ":", "")

y la línea del Docmd......
DoCmd.OutputTo acOutputReport, "InfDisponibilidad", "PDFFormat(*.pdf)", "C:\Users\KIKE\Desktop\Informes\" & StrFechaHora & ".pdf", False, "", , acExportQualityPrint

Espero que a la tercera vaya la vencida. En mi opinión es una solución mejor que ir adjudicando cada vez un Nombre de fichero. Saludos >> Jacinto

Buenas tardes  Jacinto he realizado lo que me decías y me quedó así, creo que era así como me decías no?

Dim resp As Integer
Const miRuta As String = "C:\Users\KIKE\Desktop\Informes\"
Dim miInforme As String
miInforme = Me.txtFecha
resp = MsgBox("¿Desea ver el informe?", vbQuestion + vbYesNo, "CONFIRMAR")
    If resp = vbYes Then
        DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#"
    Else
        miInforme = Me.txtFecha
        DoCmd.OpenReport "InfDisponibilidad", acViewPreview, , "Fecha=#" & Me.txtFecha & "#", acHidden
    Dim StrFechaHora As String
    StrFechaHora = CStr(FormatDateTime(Now(), vbGeneralDate))
    StrFechaHora = Replace(StrFechaHora, "/", "")
    StrFechaHora = Replace(StrFechaHora, " ", "")
    StrFechaHora = Replace(StrFechaHora, ":", "")
    DoCmd.OutputTo acOutputReport, "InfDisponibilidad", "PDFFormat(*.pdf)", "C:\Users\KIKE\Desktop\Informes\" & FormatDateTime(Now(), vbGeneralDate) & ".pdf", False, "", , acExportQualityPrint
    End If

me sigue dando este error: