Saltar al contenido

Imprimir pdf


Ir a la solución Solucionado por Abraham Valencia,

Recommended Posts

publicado

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

publicado

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

publicado (editado)
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 por muyayito
publicado

 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"

 

publicado

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.

publicado
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.

Invitado
Este tema está cerrado a más respuestas.
  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      28

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    1    1

  • Crear macros Excel

  • Mensajes

    • Que tal, adjunto una propuesta de solución. Espero le sea útil. Power Query Filas Movidas (Solucion).xlsx
    • Bueno con el ejemplo así como lo tienes, te puedo compartir que ese error de referencia circular es el que te ayuda a mantener la fecha y la hora "congeladas" podrías evitarlo usando una columna auxiliar para el vacío pero la fórmula AHORA() te cambiara el resultado cada que la hoja se calcule o cuando le des guardar. Sin VBA de por medio será esperar el aporte de algún maestro o usuario avanzado. Si cambias de opinión pasa el tema para la otra sección. Saludos
    • A falta de una solución mas adelante, seguiré como hasta ahora, copiando y pegando el export en la plantilla. A mi me vale, pero quería evitar que el resto de usuarios (tampoco lo vamos a usar tantos!!) tuvieran que intervenir en nada del export y la transformación de datos de la plantilla. Mas o menos saben hacerlo, pero quería que todo estuviera automatizado. Si encuentro una solución os la pondré por aqui. Saludos.
    • Muy buen día a tod@s esperando se encuentren de la mejor manera posible,   Comparto lo siguiente: Estoy trabajando con un archivo en el cual me gustaría que cada que yo capturo ya sea un dato por ejemplo en la Cela A2, La fecha de la celda B2 se congele con la fecha en que estoy escribiendo algún dato, no obstante que en el resto de la columna continúe corriendo la fórmula: AHORA() hasta que yo capture dato y este se congele a ese momento,   La formula con la que lo estoy haciendo es la siguiente:  Congelar FECHA CAPTURA con error.xlsx =SI(ESBLANCO(A2), AHORA(), SI(ESBLANCO(B2), AHORA(), B2))  El problema es que al buscar en la misma B2 me arroja un error,    Cabe mencionar que para este ejercicio quisiera no usar macros ni VBA solo que funcione a base de formula, pero que esta no me arroje error como ya me lo hace   Les comparto CAPTURA DE ERROR,   Muchas gracias por el apoyo,   Saludos
    • Hola @Israel Cassales Es todo mucho mas "complicado". Estamos hablando de una multinacional, los ordenadores están "capados", la detección de redes esta desactivada, y solo funcionan los servicios de red necesarios, web, servidores de impresión, etc. Lo usuarios no podemos hacer nada de configuración en los ordenadores porque no tenemos privilegios de administración. Todos los usuarios tenemos Sap, (con diferentes perfiles, según los departamentos), office 365 (también con perfiles según funciones), y todo el software básico solo lo podemos instalar desde nuestro propio Software Center. Cualquier cosa que se salga de ahí, hay que solicitarla y cruzar los dedos para que te la aprueben.  En los departamentos de análisis, claro que tienen SAP BW,  SAP BI (yo mismo he solicitado perfiles y estoy a la espera) pero solo soy un simple SGA que lo único que intenta es automatizar al máximo mi trabajo diario, y estas cosas no deberíamos hacerlas, por perfil, capacidades y posibilidades técnicas.
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.