Ciao,
guarda se ti riferisci a questo codice OLE...Io l\'ho provato con il mio scanner
di casa e funzionava..
*******************
Sub Click(Source As Button)
Const SCANFILEPATH$={C:\temp\doc.jpg}
Const IMPORTFILETYPE$={JPEG}
Const RTFNAME$={Scan}
Const SCANOBJNAME$={Kodak Image Scan Control}
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim scanner As Variant
Dim db As notesdatabase
Dim s As New notessession
Dim doc As notesdocument
Dim fileTemp As String
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.document
Set db = s.currentdatabase
Call uidoc.GoToField("Scan")
On Error Resume Next
Set scanner = uidoc.GetObject("Kodak Image Scan Control")
scanner.MultiPage = 1
If scanner.ScannerAvailable=False Then
Messagebox "Scanner non presente"
Else
\' scanner.ShowSelectScanner
scanner.image=SCANFILEPATH$
scanner.ScanTo=2
scanner.PageOption=6
Call scanner.SetPageTypeCompressionOpts(3, 5, 8, 24124)
scanner.ShowSetupBeforeScan=True
scanner.OpenScanner
scanner.StartScan
Call scanner.CloseScanner
*******************
Daniele Grillo - Fondatore di Dominopoint.it
|