Guardar PDF en una carpeta acabada de crear |
Responder |
Autor | |
MaccaM
Nuevo Unido: 06/Octubre/2020 Localización: Barcelona Estado: Sin conexión Puntos: 11 |
Tema: Guardar PDF en una carpeta acabada de crear 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 |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
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 |
|
MaccaM
Nuevo Unido: 06/Octubre/2020 Localización: Barcelona Estado: Sin conexión Puntos: 11 |
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 |
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 06/Octubre/2020 a las 20:58 |
Hola MaccaM y bienvenido al foro,
Y el problema exactamente...¿Cuál es?
|
|
MaccaM
Nuevo Unido: 06/Octubre/2020 Localización: Barcelona Estado: Sin conexión Puntos: 11 |
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 |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |