Este el codigo que me escanea una credencial de elector......
'Escaneo de la credencial de lector
fileNombre = App.Path & "\Imagenes\Identifica.bmp"
'Si existe el archivo bmp, eliminalo de lo contrario
Set f = New FileSystemObject
If f.FileExists(fileNombre) Then
f.deletefile (fileNombre)
End If
ImgScan1.PageOption = PromptToCreateNewFile
ImgScan1.Image = fileNombre
ImgScan1.ShowSetupBeforeScan = False
ImgScan1.Zoom = 40
ImgScan1.GetPageTypeCompressionType TrueColor24bitRGB
ImgScan1.OpenScanner
ImgScan1.FileType = BMP_Bitmap
ImgScan1.StartScan
ImgScan1.CloseScanner
ImgThumbnail1.Image = fileNombre
ImgScan1.PageOption = CreateNewFile
ImgEdit1.Image = fileNombre
OCRdata
Private Sub OCRdata()
Dim miDoc As MODICtl.Document
Dim miWord As MODICtl.Word
Dim layou As MODICtl.Layout
Set miDoc = New MODICtl.Document
miDoc.Create fileNombre
ImgOcr.Document = miDoc
Screen.MousePointer = vbHourglass
miDoc.OCR
Screen.MousePointer = vbDefault
MsgBox "Para obtener los datos del cliente por favor seleccione los apellidos y nombre en la imagen", vbInformation, "Obtener datos"
Set miDoc = Nothing
End Sub
Y lo que nesecito es que si no esta la credencial en el escaner..me mande un mensaje de "No hay imagen en el escanner".....hice un if con ImgThumbnail1.Image = fileNombre.....pero me marca un error...espero que puedan ayudarme.......Gracias
