Bullzip pdf

[cbermejo]

Hola a todos,

Tengo una macro que genera ficheros PDF y necesito reducir el tamaño de los mismos, por restricciones del cliente.

He pensado en reducir la calidad de impresión.

¿Alguien sabe cómo hacerlo desde la macro?

este es mi codigo:

FUNCTION MyPrintPDFWithBullZip (pdfOutputFile, DireccionEmail)
set obj = CreateObject("Bullzip.PdfSettings") 
obj.PrinterName = "Bullzip PDF Printer"
obj.SetValue "Output" , pdfOutputFile &".pdf"
obj.SetValue "ConfirmOverwrite", "no"
obj.SetValue "ShowSaveAS", "never"
obj.SetValue "ShowSettings", "never"
obj.SetValue "ShowPDF", "never"
obj.SetValue "RememberLastFileName", "no"
obj.SetValue "RememberLastFolderName", "no"
obj.SetValue "ShowProgressFinished", "no"
obj.SetValue "ShowProgress", "no"

obj.WriteSettings True 


mandar pdfOutputFile & ".pdf", DireccionEmail
END FUNCTION

Gracias

[#2]

Buen dia, Lo que yo haria seria recorrer la informacion e imprimir grupos por ejemplo de 1000 registros.

[Miguel_Angel_Baeyens]

Hola Carlos,

Proablemente añadiendo esta línea puedas reducir en algo el tamaño:

obj.SetValue "Res", "100" ' Resolucion en DPI del documento final

Espero que te sirva.

Miguel