Текст такой, с HP сканерами работает отлично, с Canon'om работает тоже отлично, но сканирует не весь документ, а его кусок, образец в приложенном примере, как я понимаю, через WIAProperty.PropertyID необходимо передать Canony область сканирования, но к сожалению, основательно порывшись в хелпе и Яндексе я не нашел как.
Заранее спасибо за участие!

Option Compare Database


Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click

Dim blnResult As Boolean
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim d As String
Dim tempfile As String
Dim wiaDialog As New WIA.CommonDialog
Dim sArr As Variant


tempfile = "C:\t.jpg"

blnResult = True
Set WIADevice = Nothing
Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, True)

If WIADevice.Type = WIA.ScannerDeviceType Then
Set WIAProcess = CreateObject("Wia.ImageProcess")
WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
WIA.wiaFormatJPEG

For Each WIAItem In WIADevice.Items
DoEvents

For Each WIAProperty In WIAItem.Properties
Select Case WIAProperty.PropertyID
Case 6146 ' Current Intent
WIAProperty.Value = 2
Case 6147 ' Horizontal Resolution
WIAProperty.Value = 100
Case 6148 ' Vertical Resolution
WIAProperty.Value = 100
Case 6149 ' Horizontal Starting Position
WIAProperty.Value = 0
Case 6150 ' Vertical Starting Position
WIAProperty.Value = 0
End Select
Next

Set WIAImage = WIAItem.Transfer
Set WIAImage = WIAProcess.Apply(WIAImage)
WIAImage.SaveFile tempfile
Next
Else
blnResult = False
MsgBox "Сканер не найден"
End If

MsgBox "Успешно!"

Exit_Кнопка2_Click:
Exit Sub

Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click

End Sub

mds_world, топик тщательно изучал, обсуждение подобной проблемы не встретил :(
повторюсь с HP работает все отлично, а вот с Canon'om...