Visual Basic - ExportAsFixedFormat

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 64 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ExportAsFixedFormat

Publicado por r (3 intervenciones) el 14/01/2019 16:52:24
estoy generando archivos pdf desde visual basic , con el código

1
2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False

pero ni ajustando la calidad a Qualityminimun se obtienen pdfs medianamente razonables (pesan 4 veces más que con la opción Save as.

Tampoco funciona atacar directamente los parametros de ActiveSheet.PageSetup.

He peinado multitud de foros........y nadie tiene la solución.

gracias anticipadas a cualquier sugerencia, pero necesariamente he de trabajar con la función ExportAsFixedFormat

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.094
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ExportAsFixedFormat

Publicado por Antoni Masana (391 intervenciones) el 15/01/2019 07:12:28
No entiendo tu problema.

Si generas el fichero PDF manualmente desde la opción Guardar como... el código que genera es este, nombre de fichero a parte, que es la opción Save As

1
2
3
4
5
6
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=ruta & "\" & ActiveSheet.Name & ".pdf", _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=True, _
                                OpenAfterPublish:=False

No se con que lo estas comparando para decir que pesa 4 veces más. ¿más que quien? ¿Con que comparas el PDF para decir que es demasiado grande?

Estaría bien si pudiese aportar algo más de información e incluso un ejemplo significativo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 64 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ExportAsFixedFormat

Publicado por r (3 intervenciones) el 15/01/2019 09:57:42
....curiosamente la misma pestaña excel por diferentes métodos me arroja estos valores

max0003

La opción ExportAsFixedFormat calidad estandard pesa 691 KB

La opción ExportAsFixedFormat Minimum reduce 18 KB

La opción Print out reduce 78 KB

Generando el pdf normalmente por fuera de VBA 538 KB menos

Además los 18 KB de diferencia de la calidad Minimum, son a base de crujir la calidad de la única imagen que contiene el documento.Con lo cual no compensa.
Es evidente que el proceso a través de VBA condimenta el pdf y lo recalienta de manera excesiva.Tampoco solventa el problema forzar previamente a la generación del pdf valores como la resolución ppp o el resto de valores de configuración ActiveSheet. PageSetup
y no quiero optar por la vía "SendKeys" al ser muy inestable.

Un saludo Antoni, gracias por tu respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.094
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ExportAsFixedFormat

Publicado por Antoni Masana (391 intervenciones) el 16/01/2019 07:28:16
El problema del PDF es que no se sabe que se envía ni como lo trata.

Con la opción de imprimir puedes usar el propio de Excel o uno externo, y la diferencia de tamaño puede ser importante.

He realizado una prueba con una hoja de Excel en la que imprime 713 páginas de texto.

Imprimo usando el PDF Creator ( de Excel ) 3.081 KB
Imprimo usando el PDF Complete ( externo ) 4.087 KB

Guarda como PDF formato estandard 50.917 KB
Guarda como PDF formato mínimo 4.680 KB

Es mundo del PDF es todo misterio.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 64 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ExportAsFixedFormat

Publicado por r (3 intervenciones) el 07/02/2019 21:20:32
Asunto solucionado, el gran Mr Excel, Bill Jelen ha dado con la tecla adecuada, se trata de un problema de versiones de office...he ejecutado la macro desde un office 2019.....y de 600 kb de peso pasa a 120 kb.

Sin ánimo de dar publicidades...tremenda web sobre excel

https://www.mrexcel.com/meet-mrexcel/

problema resuelto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar