Как сканировать на МФУ из лотка через WIA (VBA)?

Question

[KTG]

Sub scan()
    Dim objCommonDialog As WIA.CommonDialog
    Dim objImage As WIA.ImageFile
    
        Dim dev As Device
        Dim itm As Item
        Dim dm As DeviceManager

     Set objCommonDialog = New WIA.CommonDialog
     Set dm = New WIA.DeviceManager
      
        Set dev = objCommonDialog.ShowSelectDevice(ScannerDeviceType, False, False)
        Set dev = dm.DeviceInfos(objCommonDialog.ShowSelectDevice.DeviceID).Connect
        Set itm = dev.GetItem(dev.Items(1).ItemID)
        Set objImage = objCommonDialog.ShowTransfer(itm)
            If Not objImage Is Nothing Then
                objImage.SaveFile "c:\test\" & ActiveCell.Value & ".TIF"
                Set objImage = Nothing
            End If
     Set objCommonDialog = Nothing
     
End Sub

Не могу понять 2 вещи:
Как указать в "бездиалоговом" сканировании, что документы нужно брать именно с лотка, а не с планшета.
И правильно ли я понимаю что Vector в WIA отвечает за сканирование нескольких бумаг в многостраничный файл, например в TIF?

Comments

[h8nor]

Дружище, рад бы помочь, но я с драйвером WIA не работал. К тому же у тебя сканер с автоподатчиком, а у меня таких удобств нет.
Может тут чего полезного найдёшь.

[KTG]

https://msdn.microsoft.com/en-us/library/windows/d...
Наткнулся "WIA_IPS_DOCUMENT_HANDLING_SELECT", так и не понял как обращаться непосредственно к этой константе и по этому имени, но выкопал что она отвечает за свойство "Document handling select",
и с лотка у меня забрало с параметром 1.
dev.Properties("Document Handling Select").Value = 1
Что в описании называется "Duplex".

Осталось найти способ проверять наличие бумаги в лотке.
Ну и понять как формировать многостраничный TIFF.

[KTG]

KTG: https://msdn.microsoft.com/en-us/library/windows/d...
поправка.
Почитал внимательней, в константах Device - 1 это Feeder. Все верно.
А звучит она "WIA_DPS_DOCUMENT_HANDLING_SELECT"

[h8nor]

Я так понимаю, TIF - это просто контейнер. Стандартными средствами Windows контейнер не создать, всё равно придётся дёргать консоль или GUI. Думается, GUI клепают отсюда.

[KTG]

Дѣаволъ: нашел как делать TIFF https://msdn.microsoft.com/en-us/library/windows/d...
Ничего сложного, просто указываются страницы.

Другая проблема.
Не могу докопаться сколько страниц лежит в лотке, проверить есть ли там страница для сканирования и собственно Transfer не работает. Т.е. когда прописываешь pages = 0 (сканировать пока там есть бумага) выдает ошибку о неправильных настройках.

[h8nor]

Действительно, хорошая библиотека! Только нужно объявить константу:

Const wiaFormatTIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"

Вес самого контейнера получился 1400 КБ, что не очень бюджетно.

Answer 1

[KTG]

разобрался.
"objDev.Properties("Document Handling Select").Value = 1"
Полностью код в комментариях к вопросу
WIA ошибка при установке параметра PAGES (VBA). Почему?

Answer 2

[Nikalay Gromihaylo]

принципиально ли это делать через VBA?
я для такой задачи много лет назад создал батник

set Path=\\Server666\PASSPORTS\%date%
set Temp=c:\TMP6
md %Temp%
md %Path%

"C:\Program Files (x86)\IrfanView\i_view32.exe" /scanhidden /convert=%Temp%\001.gif

copy %Temp%\001.gif %Path%\%random%.gif
del %Temp%\001.gif /Q /F

сканирует через irfanview, настройки сканирования задаются там же

Comments

[h8nor]

Это также с автопотатчиком?
У меня был МФУ Xerox, который не реагировал на панель управления. Пришлось писать скрипт для clickermann-а.

[Nikalay Gromihaylo]

Дѣаволъ: да, с автоподатчиком, но им не пользуются (из-за специфики сканируемого).
сейчас проверил - да, сканирует всё время из лотка(
но мне кажется, найти программу для сканирования и написать батник будет быстрее)

[KTG]

Принципиально VBA.
В принципе, если брать Delphi, C++ то задача остается так же.. нужно без окон диалогов через WIA брать N листов с автоподатчика и сохранять в TIFF.