Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Buen dia, Lo que yo haria seria recorrer la informacion e imprimir grupos por ejemplo de 1000 registros.
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