Imprimir pdf

muyayito · October 31

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

Israel Cassales · October 31

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

muyayito · October 31

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)

Edited October 31 by muyayito

Israel Cassales · October 31

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"

muyayito · November 1

Nada, no soy capaz.

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

Israel Cassales · November 1

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.

Abraham Valencia · November 2

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

muyayito · November 3

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

Edited November 3 by muyayito

muyayito · November 4

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.

Abraham Valencia · November 5

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.