View Single Post
  #2  
Old 15-02-2006, 08:05
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

I would use SaveAs method for that and communicate directly with the JPEG filter to set all the settings like compression, smoothing, optimization, etc.

Something along these lines (didn't have time to check this myself, so some of the commands may not be 100% correct. Just to give you an idea)

Code:
Dim flt As ExportFilter
Set flt = ActiveDocument.SaveAs(ActiveDocument.FullFileName, cdrJPG)
flt.Compression = 10
flt.Smoothing = 5
flt.Finish
Reply With Quote