mmm il discorso è : e se trova un foglio con solo immagini ? E succede ... non riconoscerà mai del testo ! E un bel .. finger in the ass

Per raffaele ti posto il codice , a me l'ADF funge a meraviglia !


Private Sub Command1_Click()

ImgEdit1.ClearDisplay
Select Case chkMTif.Value

Case 0
ImgScan1.ScanTo = DisplayAndFile
ImgScan1.Image = App.Path & "\images\temp.tif"
ImgScan1.DestImageControl = "imgEdit1"
ImgScan1.ShowSetupBeforeScan = False

Case 1
ImgScan1.ScanTo = UseFileTemplateOnly '4
ImgScan1.Image = App.Path & "\images\img"
ImgScan1.MultiPage = True
ImgScan1.PageCount = Text2.Text
ImgScan1.ShowSetupBeforeScan = False
End Select

ImgScan1.StartScan
ImgEdit1.FitTo 0
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub Form_Load()
'ImgScan1.DefaultScanner = twain 'basta poi scriverlo da qualche parte
Text1.Text = ImgScan1.DefaultScanner
End Sub

Private Sub ImgScan1_PageDone(ByVal PageNumber As Long)
Text3.Text = PageNumber
MsgBox "pausa foglio numero" & PageNumber
End Sub


Private Sub Opzioni_Click()
ImgScan1.ShowSelectScanner
stringa = ImgScan1.SelectedScanner
Text1.Text = stringa
End Sub