Guardar PDF en una carpeta acabada de crear
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85523
Fecha de impresión: 20/Abril/2024 a las 08:13
Tema: Guardar PDF en una carpeta acabada de crear
Publicado por: MaccaM
Asunto: Guardar PDF en una carpeta acabada de crear
Fecha de publicación: 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 |
Respuestas:
Publicado por: xavi
Fecha de publicación: 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 http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: MaccaM
Fecha de publicación: 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 |
Publicado por: rokoko
Fecha de publicación: 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 |
Publicado por: ximo
Fecha de publicación: 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. ------------- La incansable busqueda de información abre nuestras mentes Saludos desde Burriana |
Publicado por: MaccaM
Fecha de publicación: 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 |