Excel - Macro Excel a PDF archivo queda 5 veces mas pesado

Estimados Expertos:

Tengo esta macro,,, en excel,,,, que funciona MUY ,,,, al dar un click a un comandbutton,,, es agil.... y me entrega el resultado deseado.....(no soy programador... solo la copie y pegué y la acomode)

el tema es que si hago el proceso rutinario manual (es largo y un poquito demoroso,,, puesto que debo imprimir 1.000 hojas con resultados diferentes cada uno, y con destinatarios diferente),,,,
de la forma descrita pesa uno 90(90 x 1000 = 90 mil kilos) kilos la hoja,,, pero con la macro unos 390 kilos (390 x 1.000 = 390 kilos),,,, esto ocupando el disco duro de mi pc rápidamente.

pregunto ?:
Como puedo dejar esta pesando lo mismo o similar al proceso manual (alrededor de 100 kilos)???
estare agradecido de su respuestas....

Les dejo la macro..... para su correccion.

Puedes intentar cambiar la calidad del pdf poniendo:

xlQualityMinimum

en lugar de

xlQualityStandard

saludos

Creo por ahi va el asunto...

la he probado..... pero disminuyo levemente....
de 390 solo hasta 375,,,,,,,,, aun es muy pesada.....

AUB

mmm así a ciegas no es sencillo jejeje, podría ser el área de impresión que le asignas en la macro, pero no lo sé.

¿Necesitas imprimir todo el contenido que tienes desde la celda d9 a N80?

Asi es ,,,,
todo eso es el area de impresion que necesito......
como comento en la pregunta original.... al transformar todo el dcto a PDF en forma manual (pero que es muy lento) que da en 90 kilo .,,, eso si antes tengo pre gravada el area de impresion......
me pregunto si esa area de impresion (que tambien se puede dejar con macro,,, se podra introducir alli dentro de ese codigo,,, ???


Ariel Urrea,,,,

Los pdf que se generan necesariamente serán distintos en un caso u otro, ya sea por la calidad o por cualquier otra cosa que haces de forma diferente al hacerlo manual que con la macro, ¿al abrirlos no hay ninguna diferencia entre un pdf y otro?

Prueba a darle a grabar macro (vistas/ macros/ guardar macro) y ejecuta el guardado a pdf de forma manual, y deten la grabación en el mismo sitio. A ver que diferencias hay respecto al código que tienes.

Sin poder ver nada no te puedo ayudar más.

Ok.... Cuando me refiero al proceso manual,,, es que tu me dices que realice...(eso hice).....
y ese codigo lo coloque en un commandbuton,,,, pero solo me muestra el documento que esta listo para ser guardado como PDF pero le debo colocar el nombre del documento y guiarlo a la carpeta donde lo guardare,,,, (hasta alli llegaba,,, cuando me encontre con esta otra macro,,,, que hace todo el trabajo,,,, es decir lo guarda en una Carpeta X,,, lo guarda en PDF, le coloca nombre y te da una vista ademas para ver como quedo..... )

el codigo anterior que usaba (y el que me dices que haga),,,, es el que dejo


ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, Collate:=False

La verdad es que no sabría por donde tirar ya, si quieres mándame un correo con un ejemplo y con la macro (la que citas en el correo inicial) y lo miro.

Prueba a poner esto:
IncludeDocProperties:=True
Como:
IncludeDocProperties:=False
A ver si es porque guarda información no necesaria en tu caso.

Lo he probado colocando False,,, pero sigue pesando lo mismo.....
personalmente pienso que da la impresion
que guardara un formato que esta demas y como que la el area de impresion fuere la optima

Adjunto nuevamente la macro.....

Ya lo último que se me ocurre intentar es que quites lo de "From:=1, To:=1,", ya que ya le estás indicando el área de impresión.

Ok...Estimado..... lo realice......(quete los codigos que me indicas)
pero sigue igual en el peso del archivo....
la diferencia es que la macro se ejecuta mas rapido....

AUB