The JPEGQualityFactor specifies the compression rate when compressing bitmaps with the JPEG algorithm.
Examples:
The following VBA example publishes the active document to PDF by using JPEG bitmap compression with a compression factor of 30.
Sub Test()
With ActiveDocument.PDFSettings
.BitmapCompression = pdfJPEG
.JPEGQualityFactor = 30
End With
ActiveDocument.PublishToPDF "C:\MyDocument.pdf"
End Sub