Sub Test_p3088_and_p3096()
Dim CommonDialog1 As New CommonDialog
Dim dev 'As Device
Dim p 'As Property
Dim s As String
Dim i As Integer
Set dev = CommonDialog1.ShowSelectDevice
For Each p In dev.Properties
If p.PropertyID = 3087 Or p.PropertyID = 3088 Or p.PropertyID = 3096 Then
s = s & p.Name & "(" & p.PropertyID & ") = " & p.Value
If p.SubType <> UnspecifiedSubType Then
If p.Value <> p.SubTypeDefault Then
s = s & "(Default = " & p.SubTypeDefault & ")"
End If
End If
Select Case p.SubType
Case FlagSubType
s = s & " [ valid flags include:"
For i = 1 To p.SubTypeValues.Count
s = s & p.SubTypeValues(i)
If i <> p.SubTypeValues.Count Then s = s & ", "
Next i
s = s & " ]"
Case RangeSubType
s = s & " [ valid values in the range from " & _
p.SubTypeMin & " to " & p.SubTypeMax & _
" in increments of " & p.SubTypeStep & " ]"
End Select
s = s & vbCr
End If
Next p
Debug.Print s
End SubDocument Handling Select(3088) = 2 [ valid flags include:2 ]
Pages(3096) = 1 [ valid values in the range from 0 to 100 in increments of 1 ]
Document Handling Status(3087) = 2(Default = 12354) [ valid flags include: ]
If objDM.DeviceInfos.Count < 1 Then Exit Sub т.к. в WinXP этого драйвера нет (прописывал 5.1.2600.1106) или сканер может быть не включён в сеть. Статьи по драйверу.