troubleshooting Question

Acquire an image file from scanner twain wizard with an extension jpg

Avatar of Mohammad Alsolaiman
Mohammad AlsolaimanFlag for Saudi Arabia asked on
Microsoft Access
10 Comments1 Solution1244 ViewsLast Modified:
Again I have this code to acquire a scanner twain wizard (see the code below,
I have hp scanjet 5590 , the wizard appear to me is this shown in the attached word file:
And as you see there is no place where you can choose the type of image.
It saves the image with file type *.pmb , but I need the images with type *.jpg
Any body can help please>


Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long
Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long
 
 
Private Sub btnMasterScan_Click()
On Error GoTo Err_btnMasterScan_Click
If IsNull(InDate) Then
   MsgBox " Please Enter Basic data of the Document, before you can take an image "
   Exit Sub
End If
Dim Ret As Long, PictureFile As String
 
PictureFile = Forms!swetchbord!pblCurrentPath & BookID & ".jpg"
 
Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)
 
If Ret = 0 Then
   Me.ImagePath = BookID & ".jpg"
   Me.MasterPic.Picture = Forms!swetchbord!pblCurrentPath & Me.ImagePath
   Me.btnInlarge.Enabled = True
   strScanMaster = "Yes"
End If
 
Exit_btnMasterScan_Click:
    Exit Sub
 
Err_btnMasterScan_Click:
    MsgBox err.Number & "  " & err.Description
    Resume Exit_btnMasterScan_Click
End Sub
acquire-image-file-with-extetion.doc
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 10 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 10 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros