Question : Problem: VBA code using WIA doesn't find my scanner

I have a scanner installed which works fine with the GUI and MS Document Imaging etc. of Office 2003.

However, my code - taken from the sample around - will not count my scanner.
No errors, just no count. It's Access - same (no) result in A97 and A2003.
What is missing?

  Dim CommonDialog1 As Object
  Dim DeviceManager1 As Object
  Dim i As Integer

  Set DeviceManager1 = CreateObject("WIA.DeviceManager")
  Set CommonDialog1 = CreateObject("WIA.CommonDialog")

  For i = 1 To DeviceManager1.DeviceInfos.Count
    MsgBox DeviceManager1.DeviceInfos(i).Properties("Name").Value & vbCrLf & _
      "(" & DeviceManager1.DeviceInfos(i).DeviceID & ")"
  Next

WiaAut.dll is even referenced correctly. I obtained it here:

http://www.microsoft.com/downloads/details.aspx?FamilyID=a332a77a-01b8-4de6-91c2-b7ea32537e29&DisplayLang=en#filelist

The scanner is Agfa SnapScan 1236 via SCSI, old and a bit slow but OK.
OS is WinXP SP2.

/gustav

Answer : Problem: VBA code using WIA doesn't find my scanner

There are no WIA drivers for that scanner.  TWAIN only.
Random Solutions  
 
programming4us programming4us