** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Pasar contenido campos a fichero PDF
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPasar contenido campos a fichero PDF

 Responder Responder Página  <12
Autor
Mensaje
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 10/Abril/2021 a las 21:42
Si, pero cual de ellos?
Además, estoy probando a registrarme y no hay forma.
Seguiré intentándolo
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 10/Abril/2021 a las 21:52
Hola!

Cualquiera de ellos. Si no tienes el ejemplo, ¿como dices que no hace lo que quieres?

Editado por mounir - 10/Abril/2021 a las 22:33
Un Saludo.
Arriba
acilu55 Ver desplegable
Asiduo
Asiduo


Unido: 27/Septiembre/2011
Estado: Sin conexión
Puntos: 214
Enlace directo a este mensaje Enviado: 11/Abril/2021 a las 17:44
Nomada perdona que vuelva a intervenir: la solucion que te he propuesto es muy sencilla:
Crea con un formulario con un editor de pdf. (Creo que puedes guardar el formulario del word conservando el nombre de los campos que hayas puesto, incluso si rellens los campos del word puedes convertilo en pdf desde access)
los campos los llamaras #nombre, #apellidos, etc, simplifica el asunto si tienen los mismos nombre que en el formulario en el que escribas los valores. Una vez hecho esto rellenas los campos del pdf. con los calures del formulario, bien con la rutina que te puse antes bien con esta

´¡-----------------------------------------------
Dim strfilename As String
Dim formApp As AFORMAUTLib.AFormApp
    Dim acroForm As AFORMAUTLib.Fields
    Dim field As AFORMAUTLib.field
    Dim bOK As Boolean
    Dim avDoc As CAcroAVDoc
    
 strfilename = Application.CurrentProject.Path & "\datos.pdf"
    
    Set avDoc = CreateObject("AcroExch.AVDoc")
   bOK = avDoc.Open(strfilename, "fichero" & Me.APELLIDO_1 & " " & Me.APELLIDO_2)

    Set formApp = CreateObject("AFormAut.App")
    Set acroForm = formApp.Fields
    Dim myField As AFORMAUTLib.field

    For Each myField In acroForm
      
        Select Case myField.Name
  
  Case Is = "cliente"
             myField.Value = Me.[nombre] & " " & Me.APELLIDO_1 & " " & Me.APELLIDO_2
             
             Case Is = "numero"
             myField.Value = Me.Número
             
             Case Is = "piso)"
             myField.Value = Me.Piso
             
             Case Is = "localidad"
             myField.Value = Me.LOCALIDAD
             
             Case Is = "cp"
             myField.Value = Me.CP
             
             Case Is = "provincia"
             myField.Value = Me.Provincia
             
             Case Is = "tfno"
             myField.Value = Me.TFNO
             
             Case Is = "movil"
             myField.Value = Me.MOVIL
             
             Case Is = "mail"
             myField.Value = Me.mail
            
             Case Is = "nº cliente"
            myField.Value = Me.[nº cliente]
            
            Case Is = "apellido1"
                myField.Value = Me.APELLIDO_1
               
             Case Is = "apellido2"
                myField.Value = Me.APELLIDO_2
             Case Is = "nombre"
                myField.Value = Me.nombre
      
            Case Is = "calle"
            myField.Value = Me.Calle
        
        Case Else
        
                If myField.Name = Me.Deleg Then
                myField.IsHidden = False
                End If
        
               
         End Select
        
        
    Next myField
  
  
  Set AcroExchPDDoc = avDoc.GetPDDoc
bOK = AcroExchPDDoc.Save(1, Application.CurrentProject.Path & "\Cliente" & Me.[nº col] & "_" & Me.APELLIDO_1 & " " & Me.APELLIDO_2 & ".pdf")
    
    avDoc.Close (1)
    Set avDoc = Nothing
    Set formApp = Nothing
    Set acroForm = Nothing
    Set AcroExchPDDoc = Nothing

'---------------------------------------
como puedes ver es basicamente lo mismo que en el alnterior solo que en el primero iba dirigido a rellenar un par de campos
'------------------------------------
a partir de aqui hacer con el archivo rellenado lo que quieras: 
firmarlo digitalmente, enviarlo por mail o lo que quieras añadiendo las correspondientes instrucciones
'-----------------------------------
Te recomiendo que si vas a mandar por mail  u son muchos lo hagas entandas pequeñas si no quieres que los servidores de correo lo interpreten como spam. tardarás mas pero llegaran todos, a mi la primera vez se paro en sesenta y me costó saber porqué.

Un saludo y que te pueda resolver el asunto.


Gracias a todos de antemano
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 16/Abril/2021 a las 20:27
Mounir he probado la demo theDBguyPDFDemoV1.1 que descargue desde el enlace que puso Xavi, y es la que comento que no me funciona.
También descargué de la misma págin ala demo theDBguyPDFFormFieldsDemoV1.0, pero no la he probado.
Acilu55, el caso es que los formularios en pdf ya están creados, pues pertenecen a las distintas administraciones. Lo que pretendo es usar esos formularios que ya tienen sus campos, para rellenarlos con el contenido de los campos de access.

Seguiré probando gracias
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 19/Abril/2021 a las 06:42
Muchas gracias a todos.
De momento seguiré usando la imagen del formulario en Word con sus campos.
Este hilo se puede cerrar satisfactoriamente.
Saludos.
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable