** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Guardar PDF en una carpeta acabada de crear
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoGuardar PDF en una carpeta acabada de crear

 Responder Responder
Autor
Mensaje
MaccaM Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 06/Octubre/2020
Localización: Barcelona
Estado: Sin conexión
Puntos: 11
Enlace directo a este mensaje Tema: Guardar PDF en una carpeta acabada de crear
    Enviado: 06/Octubre/2020 a las 20:23
Buenas tardes a tod@s

Tengo el siguiente código he intento guardar el archivo creado en PDF en la carpeta creada junto con el mismo comando.

Necesito ayuda gracias.
Private Sub Comando40_DblClick(Cancel As Integer)

MkDir "C:\Users\MaccaM\Desktop\MaccaM\2020\En Tramite\" + Me.[Nom del Client]

Const Destino As String = "C:\Users\MaccaM\Desktop\MaccaM Copia\2020\En Tramite\"

DoCmd.OpenForm "Asti Fregadora Ra 660 Navi", acNormal, , "[Id_Ra660Navi] = " & Me![Id_Ra660Navi]

DoCmd.OutputTo acOutputForm, "Asti Fregadora Ra 660 Navi", acFormatPDF, Destino & Me.Ofertanºb & " 1.pdf", False, "", 1, acExportQualityPrint

DoCmd.Close acForm, "Asti Fregadora Ra 660 Navi"

Saludos y gracias

Muchas Gracias por su ayuda.

Saludos
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 20:58
Hola MaccaM y bienvenido al foro,

Y el problema exactamente...¿Cuál es?
Xavi, un minyó de Terrassa

Mi web
Arriba
MaccaM Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 06/Octubre/2020
Localización: Barcelona
Estado: Sin conexión
Puntos: 11
Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 21:26
El problema es que me genera la carpeta, en la ruta establecida y a continuación en la misma ruta me genera el documento en PDF, pero  fura de la carpeta anteriormente creada y lo que quiero es que el PDF lo guarde dentro de la carpeta creada.

Muchas gracia por la pronta respuesta.

Saludos
Muchas Gracias por su ayuda.

Saludos
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 21:51
Aqui debe de ir la ruta donde guardas el pdf jusnto con el nombre del pdf y su extension.

DoCmd.OutputTo acOutputForm, "Asti Fregadora Ra 660 Navi", acFormatPDF, Destino & Me.Ofertanºb & " 1.pdf", False, "", 1, acExportQualityPrint

Con mkdir creas la carpeta, pero destino no veo que sea igual, que es la que utilizas al crear el pdf.....

Crea una variable con con el directorio

Dim varDestino as string
varDestino=C:\Users\MaccaM\Desktop\MaccaM Copia\2020\En Tramite\"

Mkdir varDestino

Y utilizas varDestino & "nombrepdf.pdf" en el codigo de crear pdf

Editado por rokoko - 06/Octubre/2020 a las 22:01
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 07/Octubre/2020 a las 18:15
Hola,

MkDir "C:\Users\MaccaM\Desktop\MaccaM\2020\En Tramite\" + Me.[Nom del Client]
Creo que creas dentro de tramite otra carpeta con el nombre del cliente

Const Destino As String = "C:\Users\MaccaM\Desktop\MaccaM Copia\2020\En Tramite\" & Me.[Nom del Client] & "\"
El destino no tiene nada que ver con lo creado con MkDir, y además te falta la carpeta del cliente



Saludos, ximo

Edito: Faltaba una barra invertida para meter los PDFs dentro de ella.


Editado por ximo - 07/Octubre/2020 a las 18:19
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
MaccaM Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 06/Octubre/2020
Localización: Barcelona
Estado: Sin conexión
Puntos: 11
Enlace directo a este mensaje Enviado: 09/Octubre/2020 a las 09:44
Me ha costado pero al final he dado con ello.

Private Sub Comando40_DblClick(Cancel As Integer)

Dim Destino As String

Destino = "C:\Users\marct\Desktop\Marc Copia\2020\En Tramite\" + Me.[Nom del Client] + "\"

If Len(Dir(Destino)) = 0 Then

MkDir Destino

End If

DoCmd.OpenForm "Asti Fregadora Ra 660 Navi", acNormal, , "[Id_Ra660Navi] = " & Me!

DoCmd.OutputTo acOutputForm, "Asti Fregadora Ra 660 Navi", acFormatPDF, Destino & Me.Ofertanºb & " 1.pdf", False, "", 1, acExportQualityPrint

DoCmd.Close acForm, "Asti Fregadora Ra 660 Navi"


End Sub

Muchas gracias por tu ayuda saludos
Muchas Gracias por su ayuda.

Saludos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable