Premesso che lo script non è mio, ma di terze parti, dopo aver cambiato scanner (attualmente un epson compatibile twain), andando in debug, si blocca sulle ultime due righe che posto di seguito :
Sub Scanner
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument, doc As NotesDocument
Dim DocImg As NotesDocument
Dim VistaParEnte As NotesView, DocParEnte As NotesDocument
Dim session As New NotesSession
Dim KeyImg As String
Dim db As NotesDatabase
Dim Vista As NotesView
Dim dImg As NotesDatabase
Dim dc As notesdatabase
Dim nomefile As String
\'Dim o As NotesEmbeddedObject
Set dc = session.CurrentDatabase
Call ParTab(session,dc,db)
Set VistaParEnte = db.GetView( "(Parametri Ente)" )
Set DocParEnte = VistaParEnte.GETDOCUMENTBYKEY("SCANNER", True)
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
If DocParEnte Is Nothing Then
Messagebox "Documento Profilo Scanner non trovato. Controllare in PARAMETRI ENTE.", 48, "Scheda Profilo scanner non disponibile."
Exit Sub
End If
Dim scan As Variant
Forall o In DocParEnte.EmbeddedObjects
>>>>>If o.Class = "WangImage.ScanCtrl.1" Or o.Class = "Imaging.ScanCtrl.1" Then
>>>>Set scan = o.Object
PER FAVORE HELP, E\' MOLTO URGENTE, PRIMA FUNZIONAVA CON ALTRO SCANNER HP ??!?!?!
GRAZIE.
zeus
Zeus
|