Public Function WIATest()

  Dim comDialog As WIA.CommonDialog
  Dim img As WIA.ImageFile
  
  Set comDialog = New WIA.CommonDialog
  Set img = New WIA.ImageFile
  
  Set img = comDialog.ShowAcquireImage()
  
  img.SaveFile ("D:\imgfile.bmp")
  
  Set img = Nothing
  
End Function

Option Compare Database
Option Explicit

Const DEVNAME As String = "EPSON NX210/TX210"

Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Function WIATest2(Optional bShowProgress As Boolean = True)
  Dim ComDialog As WIA.CommonDialog
  Dim DevMgr As WIA.DeviceManager
  Dim DevInfo As WIA.DeviceInfo
  Dim dev As WIA.Device
  Dim img As WIA.ImageFile
  Dim i As Integer
  
  Set DevMgr = New WIA.DeviceManager
  
  For i = 1 To DevMgr.DeviceInfos().Count
    If DevMgr.DeviceInfos(i).Properties("Name") = DEVNAME Then
      Set DevInfo = DevMgr.DeviceInfos(i)
    End If
  Next i
  
  Set dev = DevInfo.Connect
  
  'I'm not positive on this, but it appears that Item(1) is the root item
  'of the device.  The only scanner I have at hand only has one item anyway,
  'AFAICT other items might include tray feeders, etc.  Not sure, more importantly
  'not sure why Item(1) is the one to use or how safe it is to rely on...
  If bShowProgress Then
    Set ComDialog = New WIA.CommonDialog
    Set img = ComDialog.ShowTransfer(dev.Items(1), WIA_FORMAT_JPEG, True)
  Else
    Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG)
  End If
  
  img.SaveFile "D:\img7.jpg"
  
  Set img = Nothing
  Set dev = Nothing
  Set DevInfo = Nothing
  Set DevMgr = Nothing
  Set ComDialog = Nothing
  
  
End Function

Option Compare Database
Option Explicit

Const DEVNAME As String = "EPSON NX210/TX210"

Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Function WIATest2(Optional bShowProgress As Boolean = True)
  Dim ComDialog As WIA.CommonDialog
  Dim DevMgr As WIA.DeviceManager
  Dim DevInfo As WIA.DeviceInfo
  Dim dev As WIA.Device
  Dim itm As WIA.Item
  Dim img As WIA.ImageFile
  Dim p As Object
  Dim i As Integer
  Dim s As String
  
  
  Set DevMgr = New WIA.DeviceManager
  
  For i = 1 To DevMgr.DeviceInfos().Count
    If DevMgr.DeviceInfos(i).Properties("Name") = DEVNAME Then
      Set DevInfo = DevMgr.DeviceInfos(i)
    End If
  Next i
  
  Set dev = DevInfo.Connect
  
  Set itm = dev.Items(1)
  
  Set ComDialog = New WIA.CommonDialog
  
  ComDialog.ShowItemProperties itm
  
  For Each p In itm.Properties
    If p.IsReadOnly Then s = "[READONLY] "
    s = s & p.Name & "      " & p.Value
    Debug.Print s
    s = ""
  Next
  
  'test non readonly item property
  itm.Properties("Horizontal Extent") = 200 'was 687 or something for regular paper
  
  'I'm not positive on this, but it appears that Item(1) is the root item
  'of the device.  The only scanner I have at hand only has one item anyway,
  'AFAICT other items might include tray feeders, etc.  Not sure, more importantly
  'not sure why Item(1) is the one to use or how safe it is to rely on...
  If bShowProgress Then
    Set img = ComDialog.ShowTransfer(dev.Items(1), WIA_FORMAT_JPEG, True)
  Else
    Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG)
  End If
  
  img.SaveFile "D:\img8.jpg"
  
  Set img = Nothing
  Set dev = Nothing
  Set DevInfo = Nothing
  Set DevMgr = Nothing
  Set ComDialog = Nothing
  
  
End Function

[READONLY] Item Name      Top
[READONLY] Full Item Name      0000\Root\Top
[READONLY] Item Flags      67
Color Profile Name      NX210_R.ICC
Horizontal Resolution      75
Vertical Resolution      75
Horizontal Extent      637
Vertical Extent      877
Horizontal Start Position      0
Vertical Start Position      0
Data Type      3
[READONLY] Bits Per Pixel      24
Brightness      0
Contrast      0
Current Intent      0
[READONLY] Pixels Per Line      637
[READONLY] Number of Lines      877
[READONLY] Preferred Format      {B96B3CAA-0728-11D3-9D7B-0000F81EF32E}
[READONLY] Item Size      1676864
Threshold      110
Format      {B96B3CAA-0728-11D3-9D7B-0000F81EF32E}
Media Type      128
[READONLY] Channels Per Pixel      3
[READONLY] Bits Per Channel      8
[READONLY] Planar      0
[READONLY] Bytes Per Line      1912
[READONLY] Buffer Size      65536
[READONLY] Access Rights      3
Compression      0
Photometric Interpretation      0
[READONLY] Lamp Warm up Time      90000

Dim a
Dim my_pdfMaker As AdobePDFMakerForOffice.pdfMaker
Dim pdfSettings As AdobePDFMakerForOffice.ISettings

Set my_pdfMaker = Nothing ' locate PDFMaker object
For Each a In Application.COMAddIns
If InStr(UCase(a.Description), "PDFMAKER") > 0 Then
Set my_pdfMaker = a.Object '<---NOT WORKING
Exit For
End If
Next
If my_pdfMaker Is Nothing Then
MsgBox "Cannot Find PDFMaker add-in", vbOKOnly, ""
Exit Sub
End If

Set my_pdfMaker = a

Dim my_pdfMaker As AdobePDFMakerForOffice.pdfMaker
Dim pdfSettings As AdobePDFMakerForOffice.ISettings

Set my_pdfMaker = New AdobePDFMakerForOffice.pdfMaker
Set pdfSettings = my_pdfMaker.Settings 'or whatever

strFile = "C:\Users\John\Pictures\Test_Scan\" & strFormNumber & ".bmp"

img.SaveFile strFile

Shell "C:\Program Files (x86)\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" + " " + strFile, 3

Kill strFile