Ive written a MS Access program to scan signed record of receipts. The program interfaces with the scanner using wia.commondialog. It scans the record of receipts, stores the image to a networked storage device and inserts a link to the image into an existing OBDC database allowing the user of that database to view it on demand.
It works, however, the rub is that the image is stored in portrait format and I must manually rotate it to landscape format before the OBDC database will recognize it. Here is the code that I use to contact the scanner.
'''''''''''''''''''''''''''''''''''''''''''''''
' FUNCTION '
' Scan() '
' Call the scanner and save scanned image '
'''''''''''''''''''''''''''''''''''''''''''''''
Public Function scan()
Dim commondialog1 As Object
Dim dm As Object
Dim img As Object
Dim strSave As String
Set commondialog1 = CreateObject("WIA.commondialog")
Set img = commondialog1.ShowAcquireImage
strSave = "\\xxx.xxx.x.xxx\Logistics_Image_Files\" & company_name & "\"
' Check to make sure that the directory exists and create if it doesn't
CreateDirIfRequired (strSave)
strSave = strSave & [company_name] & " " & [op_por_date] & " ISSUE " & Left$([person_name], InStr([person_name], ",") - 1)
img.SaveFile (strSave & ".jpg")
End Function
I'm starting to think that the img.SaveFile line doesn't really convert the file to a true jpeg file and when I open it manually and rotate it, it is tnen saved as a true .jpg. Any thoughts?