oh! one problem is the chm shows this line
Set Attrs = New IMActX80Ctl.Attributes
but doesn't works, I've user IMActX8Ctl.Attributes (without the zero).
but anyway, don't understand the compress, I've used
Set Attrs = New IMActX8Ctl.Attributes
Attrs.Add "EXTENSION", "PDF", IMActX8Ctl.IMString
Attrs.Add "COMPRESS", "True", IMActX8Ctl.IMString
Attrs.Add "PDF_COMPRESS", "JPEG", IMActX8Ctl.IMString
used also FLATE, but size was 2,6 MB or 1.6 MB.
btw I've Scanned using 16 colours, one A4 page