Scan a multiple page PDF to a file and directory location

FrostByte

Registered User.
Local time
Today, 14:50
Joined
Jan 15, 2015
Messages
56
Hi there,

Can anyone assist me with this problem. I want to create a button on my form that when pressed will scan my multi page document (ADF) from my Epson WF-3540 and save it as a specified file name and folder.

Many thanks in advance, appreciated.
 
I found this which brings up the glass flat bed scanning option.

******************************************
Private Sub Command0_Click()
Dim comDialog As WIA.CommonDialog
Dim img As WIA.ImageFile

Set comDialog = New WIA.CommonDialog
Set img = New WIA.ImageFile

Set img = comDialog.ShowAcquireImage()

img.SaveFile ("D:\imgfile.bmp")

Set img = Nothing

End Sub
************************************

Would anyone be able to help me change it for use with an ADF and PDF files?

Looking round the internet there is a lot of code but its way above my knowledge base.


Regards
 
this code will be using a class module called WIA.

Without the class module, there is not much you can do with it

I would go to the Epson website and see if they supply an API or some facility that can be referenced in VBA
 
Ever think of implementing batch commands to quicken the process?
 

Users who are viewing this thread

Back
Top Bottom