Buenas al foro.

Con esta macro relleno unos formularios en pdf desde excel, pero lo guarda como pdf que se pueden editar los formularios, y busco la forma o bien, de imprimir en pdf o que no sse pueda editar.

Ojo, para que funcione hay que tener el adobe pro .

 

PD: No me deja subir el pdf por tamaño. Si alguien quieres se lo paso por privado.

Libro1.xlsm

Hola.

No tengo Adobe PRO pero una idea y como veo que estas usando JSO podrías agregar un JavaScript y convertir las páginas del PDF a solo lectura utilizando this.flattenPages() ya luego se guarda y se cierra.

Dim jsSave As String
        jsSave = "this.flattenPages();" & vbCrLf & "this.saveAs({cPath: '" & stRutaGuardadoPDF & "', bCopy: true});" & vbCrLf & "this.closeDoc();"
        objJSO.Execute (jsSave)

' Y cerramos la aplicación (Acrobat) para finalizar
        objAcrobatApp.Exit

Haz una prueba.

Saludines

hace 1 hora, Israel Cassales dijo:

objJSO.Execute (jsSave)

Hola @Israel Cassales y gracias por responder.

Me da fallo en esta línea (El objeto no admite esta propiedad  o método)

Editado el el 31 de octubre1 año por muyayito

 Vaya, entonces podrías intentar otra alternativa para convertirlos en sólo lectura, es probable que haya otras pero una opción diferente que conozco sería usar la propiedad ExecMenuItem para "flatear" el documento y asegurarse de que no sea editable:

 

' (convertir en solo lectura)
objAcrobatAVDoc.BringToFront objAcrobatApp.MenuItemExecute "SaveAs"

 

Nada, no soy capaz.

El número de argumento es incorrecto o  la asignación de propiedad no es válida.

Lamento leer eso, eran el par de cosas que conozco, al menos la consulta sigue abierta y es posible que recibas ayuda adicional de algún Maestro o miembro avanzado del foro.

Si se me ocurre algo adicional te lo comparto.

Hola ¿y si comprimes el pdf como zip? ¿pasa igual los 2 mb? ¿no te deja adjuntar así? 

En 2/11/2024 at 14:24 , Abraham Valencia dijo:

Hola ¿y si comprimes el pdf como zip? ¿pasa igual los 2 mb? ¿no te deja adjuntar así? 

No me deja de mas de 102,4 kb.

 

https://mega.nz/file/nBAl2LzB#IYeKO_-QZWDbE87XYH7CHpXtuCv3di9b1ppMsV0i2n0

Editado el el 3 de noviembre1 año por muyayito

En 2/11/2024 at 14:24 , Abraham Valencia dijo:

Hola ¿y si comprimes el pdf como zip? ¿pasa igual los 2 mb? ¿no te deja adjuntar así? 

No me deja mas de 102,04 kb. He subido un enlace de mega pero esta pendiente de aprobación de un admin.

Hola, estoy de viaje, la laptop que tengo aquí no tiene Acrobat PRO, tendré acceso a la mía recién el fin de semana; si aún nadie te dio una alternativa, lo veo. 

Hola.  Ahora sí ya lo vi. Basta esta línea antes del Save:

  objJSO.FlattenPages

Comentas

Muchísimas gracias @Abraham Valencia justo en el clavo 🙂