Microsoft Windows Image Acquisition Library very large scan file size

[wackywoo105]

I am using the Microsoft Windows Image Acquisition Library to scan directly from a button in an access form.



I am using this to scan A4 files at resolution 200dpi in greyscale to jpeg. The scans captured by my access code are 3785KB in size. If I run the same scan using devices and printer the file size is 685KB.

I have the following set up:

 With wiaScanner.Items(1)
     .Properties("6146").Value = 2 '4 is Black-white,gray is 2, color 1 (Color Intent)
     .Properties("6147").Value = 200 'dots per inch/horizontal
     .Properties("6148").Value = 200 'dots per inch/vertical
     .Properties("6149").Value = 0 'x point where to start scan
     .Properties("6150").Value = 0 'y-point where to start scan
     .Properties("6151").Value = 1660 'horizontal exent DPI x inches wide
     .Properties("6152").Value = 2334 'vertical extent DPI x inches tall
     Set wiaImg = .Transfer(wiaFormatJPEG) 'Change file type in save to match format
 End With

Does anyone know why the access scans are so large? Comparing the 2 images captured by different methods shows no real difference in quality.

[wackywoo105]

After some extensive research found a way with ImageProcess to reduce the file size.

[June7]

What is ImageProcess? Want to share details of your solution?

[wackywoo105]

Sure

Dim IP As ImageProcess
Set IP = CreateObject("WIA.ImageProcess")
IP.Filters.Add (IP.FilterInfos("Convert").FilterID)
IP.Filters(1).Properties("FormatID").Value = wia.FormatID.wiaFormatJPEG
IP.Filters(1).Properties("Quality").Value = 40
Set wiaImg = IP.Apply(wiaImg)

I looked at another method of just setting a property value but it didn't seem to work.