Several years ago I wrote a VB app that used the Kodak imgscan.ocx, imgadmin.ocx and imgedit.ocx files.
If these are available to you try them out.
I don't remember much about how it worked, but here's a chunk of code from the "Scan It" button event:
Hope this helps, DaveBoCode:' Setup properties for the ImgScan1 obj. for ref. only: ImgScan1.FileType = TIFF ImgScan1.Image = New_ScanFileName ' writes out pages to TempScan.tif ImgScan1.MultiPage = True ImgScan1.PageOption = CreateNewFile ImgScan1.ScanTo = FileOnly ImgScan1.ShowSetupBeforeScan = False ' prevent that screen from appearing ImgScan1.PageType = BlackAndWhite ' (won't allow this? #3 instead) ImgScan1.CompressionType = CCITTGroup4_2d_Fax ' ~35K/page ' Scanner is automatically opened If ImgScan1.ScannerAvailable Then ' 1st check if New_Scan.tif exists, if so, delete it If File_Exists(New_ScanFileName) Then Kill New_ScanFileName ImgScan1.StartScan ImgScan1.CloseScanner ' scan is now if file New_ScanFileName




Reply With Quote