Sub Test() Dim ps As PDFVBASettings Set ps = ActiveDocument.PDFSettings ps.Reset If ps.ShowDialog Then Exit Sub If ps.BitmapCompression <> pdfJPEG Then MsgBox "You must use JPEG bitmap compression." ps.BitmapCompression = pdfJPEG End If ps.JPEGQualityFactor = 150 ActiveDocument.PublishToPDF "C:\MyDocument.pdf" End Sub