Numérisation de plusieurs pages avec l'ADF scanner à l'aide de VBA

Je suis en train d'écrire une application Microsoft Access et je veux permettre à l'utilisateur de numériser plusieurs pages dans un seul fichier PDF en format. La conversion en PDF fonctionne très bien une fois que j'ai toutes les pages numérisées. Voici mon code:

Option Compare Database
Option Explicit

Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Function MyScan()
  Dim ComDialog As WIA.CommonDialog
  Dim DevMgr As WIA.DeviceManager
  Dim DevInfo As WIA.DeviceInfo
  Dim dev As WIA.Device
  Dim img As WIA.ImageFile
  Dim i As Integer
  Dim wiaScanner As WIA.Device

  Set ComDialog = New WIA.CommonDialog
  Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, False, True)

  Set DevMgr = New WIA.DeviceManager

  For i = 1 To DevMgr.DeviceInfos().Count
    If DevMgr.DeviceInfos(i).DeviceID = wiaScanner.DeviceID Then
      Set DevInfo = DevMgr.DeviceInfos(i)
    End If
  Next i

  Set dev = DevInfo.Connect

  Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG)

  img.SaveFile "C:\img.jpg"

  Set img = Nothing
  Set dev = Nothing
  Set DevInfo = Nothing
  Set DevMgr = Nothing
  Set ComDialog = Nothing


End Function

Bien sûr, il est important de dire que mon scanner est Avision AV121 avec un chargeur automatique de documents.

Mon problème est que Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG) numérise TOUTES les pages à la fois (et pas seulement une seule page), mais je ne vois que le premier dans le fichier image. Parce que toutes les pages sont numérisées à la fois, je ne peux pas le faire dans une boucle - une erreur est signalée dans la deuxième itération (en disant que le chargeur est vide, c'est vraiment) et je n'ai encore que la première page numérisée.

Je voudrais dire que cela semble être un problème commun. J'ai lu beaucoup de discussions sur ce problème, mais je n'ai pas trouver quelque chose qui a répondu à ma question.

J'espère trouver de l'aide ici, je suis vraiment frustré.

Merci beaucoup

OriginalL'auteur Yotam | 2013-06-09

0

J'ai eu ce problème moi-même.

Je ne me souviens pas où j'ai trouvé que c'est probablement une limitation de l'extension WIA, un bug je pense. Peut-être que dans certaines circonstances.

Ma solution a été d'utiliser une 3ème partie de numérisation de contrôle.

OriginalL'auteur E Mett

Pour ceux qui sont encore à travailler sur le problème, j'ai modifié ce code à partir de JIM code pour travailler avec un scanner avec un chargeur automatique de documents. Il numérise les documents en continu unlimit pages et la stocke sous forme d'un fichier jpeg temporairement. Il génère ensuite un rapport au format pdf. C'est la seule façon que je peux comprendre de la numérisation de plusieurs documents à l'aide d'un scanner ADF.

'Requirements:
'Must include reference to Microsoft Windows Image Acquisition 2.0 dll
'Create a table named scantemp. Create ID column as Autonumber. Create 2nd column named Picture with Text as datatype.
'Create a continuous report named rptscan. Set scantemp table as recordsource. Add image control to report and set Picture
'as the control source. Make the image control the size of an 8.5 x 11 sheet so that the whole document appears normally when the
'create textbox set name txt_id for enter PDF files name
'report is exported to pdf.
'For use with a scanner that continually scans documents until the ADF tray is empty unlimit pages.
option Compare Database
Option Explicit
Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
Public Sub ScanDocs()
Dim intPages As Integer 'number of pages
Dim img As WIA.ImageFile 
Dim strPath As String 
Dim strFileJPG As String
strPath = CurrentProject.Path 'set path to save files
intPages = 1
On Error GoTo ErrorHandler
'scan
ScanStrat:
Dim DialogScan As New WIA.CommonDialog, dpi As Integer, pp As Integer, l    As Integer
dpi = 250
Dim Scanner As WIA.Device
Set Scanner = DialogScan.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)
'set properties device
Scanner.Properties("3088").Value = 1 'Automatic Document Feeder
Scanner.Items(1).Properties("6146").Value = 4 'Colour intent
Scanner.Items(1).Properties("6147").Value = dpi 'DPI horizontal
Scanner.Items(1).Properties("6148").Value = dpi 'DPI vertical
Scanner.Items(1).Properties("6149").Value = 0 'x point to start scan
Scanner.Items(1).Properties("6150").Value = 0 'y point to start scan
Scanner.Items(1).Properties("6151").Value = 8.27 * dpi  'Horizontal extent
Scanner.Items(1).Properties("6152").Value = 11.7 * dpi    'Vertical extent for A4
Scanner.Items(1).Properties("6154").Value = 80 'brightness
'  Scanner.Items(1).Properties("6155").Value = 30 'contrast
'Start Scan if err number -2145320957 Scan document finish 
Do While Err.Number <> -2145320957 'error number is ADF status don't feed document
Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) 
strFileJPG = strPath & "\FileScan\temp\" & CStr(intPages) & ".jpg"
img.SaveFile (strFileJPG) 'save files .jpg in temp folder
DoCmd.SetWarnings False 
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG & "')" 'insert picture temp to table scan temp
intPages = intPages + 1 'add number pages
Loop
'after finish scan start convert to pdf
StartPDFConversion: 
Dim strFilePDF As String '
Dim RptName As String
strFilePDF = CurrentProject.Path & "\FileScan\" & txt_id.Value & ".pdf" 'pdf file name by textbox
RptName = "rptScan" 'report picture file for export to PDF 
DoCmd.OpenReport RptName, acViewDesign, , , acHidden
DoCmd.Close acReport, RptName, acSaveYes
DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFilePDF
DoCmd.RunSQL "delete from scantemp" 'delete all data from table scantemp
DeleteTemp:
'delete files temp (JPG)
Dim i As Integer
Dim filesname As String
i = 1
'loop pages number (intpages)
Do While i < intPages
filesname = CurrentProject.Path & "\FileScan\temp\" & i & ".jpg"
If Dir(filesname) <> "" Then
'SetAttr filesname, vbNormal
Kill filesname
Else
Exit Do
End If
i = i + 1
Loop
MsgBox ("done")
Exit Sub
ErrorHandler:
Select Case Err.Number
Case -2145320957
If intPages = 1 Then
MsgBox ("not found document to scan")
Exit Sub
Else
GoTo StartPDFConversion
End If
End Select
MsgBox "Error" & ":  " & Err.Number & vbCrLf & "Description: " _
& Err.Description, vbExclamation, Me.Name & ".ScanDocs"
End Sub

OriginalL'auteur chalermpon

J'ai modifié ce code fonctionne avec un scanner avec un chargeur automatique de documents. Il numérise les documents en continu jusqu'à 10 pages et la stocke sous forme d'un fichier jpeg temporairement. Il génère ensuite un rapport au format pdf. C'est la seule façon que je peux comprendre de la numérisation de plusieurs documents à l'aide d'une AAD scanner à l'aide de WIA sans l'aide d'un 3ème partie app.

'This code was originally designed by http://kbase.icbconsulting.com/vba/scan-documents-into-an-access-database
'Details: This code will continually scan up to 10 documents using a scanner with an Automatic Document Feeder(ADF) and then export the jpeg
'images to (1) pdf file.
'Code tested using an HP OfficeJet 6600 Wireless All-in-one Printer.
'Requirements:
'Must include reference to Microsoft Windows Image Acquisition 2.0 dll
'Create a table named scantemp. Create ID column as Autonumber. Create 2nd column named Picture with Text as datatype.
'Create a continuous report named rptscan. Set scantemp table as recordsource. Add image control to report and set Picture
'as the control source. Make the image control the size of an 8.5 x 11 sheet so that the whole document appears normally when the
'report is exported to pdf.
'For use with a scanner that continually scans documents until the ADF tray is empty.
'NOTE: I previosuly coded this to scan up to 20 documents at once. It would always get to the 11th or 12th page and then Access 2010
'would crash (Not Responding). It would be interesting to see if someone can come up with a way to scan more that 10 documents
'with this code.
Public Sub ScanDocs()
'ErrorHandler traps feeder empty error after all documents are scanned, then begins jpeg-to-pdf file conversion
On Error GoTo ErrorHandler
'Initial Document Load into scanner
If MsgBox("Set documents (Max. 10) in the Automatic Document Feeder and then click OK.", vbOKCancel, "Scan Start") = vbCancel Then
MsgBox ("Scan Canceled")
GoTo ProcedureExit
Else
GoTo ScanStart
End If
ScanStart:
'Setup WIA imaging device for scanning
Dim Dialog1 As New WIA.CommonDialog, dpi As Integer, PP As Integer, l As Integer
dpi = 300
Dim Scanner As WIA.Device
Set Scanner = Dialog1.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)
'Set Document Properties and Feeder Setup
Scanner.Properties("3088").Value = 1 'Automatic Document Feeder
Scanner.Items(1).Properties("6146").Value = 4 'Colour intent
Scanner.Items(1).Properties("6147").Value = dpi 'DPI horizontal
Scanner.Items(1).Properties("6148").Value = dpi 'DPI vertical
Scanner.Items(1).Properties("6149").Value = 0 'x point to start scan
Scanner.Items(1).Properties("6150").Value = 0 'y point to start scan
Scanner.Items(1).Properties("6151").Value = 8.5 * dpi  'Horizontal extent
Scanner.Items(1).Properties("6152").Value = 11# * dpi   'Vertical extent for letter
'Scanner.Items(1).Properties("6154").Value = -30 'brightness
'Scanner.Items(1).Properties("6155").Value = 30 'contrast
'Start first page scan
Dim intPages As Integer
Dim img As WIA.ImageFile
Set img = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG As String
strFileJPG = "c:\1.jpg"
img.SaveFile (strFileJPG)
intPages = 1
'Then every subsequent scan thereafter
Dim img2 As WIA.ImageFile
Set img2 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG2 As String
strFileJPG2 = "c:\2.jpg"
img2.SaveFile (strFileJPG2)
intPages = intPages + 1
Dim img3 As WIA.ImageFile
Set img3 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG3 As String
strFileJPG3 = "c:\3.jpg"
img3.SaveFile (strFileJPG3)
intPages = intPages + 1
Dim img4 As WIA.ImageFile
Set img4 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG4 As String
strFileJPG4 = "c:\4.jpg"
img4.SaveFile (strFileJPG4)
intPages = intPages + 1
Dim img5 As WIA.ImageFile
Set img5 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG5 As String
strFileJPG5 = "c:\5.jpg"
img5.SaveFile (strFileJPG5)
intPages = intPages + 1
Dim img6 As WIA.ImageFile
Set img6 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG6 As String
strFileJPG6 = "c:\6.jpg"
img6.SaveFile (strFileJPG6)
intPages = intPages + 1
Dim img7 As WIA.ImageFile
Set img7 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG7 As String
strFileJPG7 = "c:\7.jpg"
img7.SaveFile (strFileJPG7)
intPages = intPages + 1
Dim img8 As WIA.ImageFile
Set img8 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG8 As String
strFileJPG8 = "c:\8.jpg"
img8.SaveFile (strFileJPG8)
intPages = intPages + 1
Dim img9 As WIA.ImageFile
Set img9 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG9 As String
strFileJPG9 = "c:\9.jpg"
img9.SaveFile (strFileJPG9)
intPages = intPages + 1
Dim img10 As WIA.ImageFile
Set img10 = Scanner.Items(1).Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}")
Dim strFileJPG10 As String
strFileJPG10 = "c:\10.jpg"
img10.SaveFile (strFileJPG10)
intPages = intPages + 1
'Starts the jpeg-to-pdf conversion
StartPDFConversion:
Dim strFilePDF As String
'set pdf output path
strFilePDF = "c:\pdf.pdf"
DoCmd.SetWarnings False
'delete previously processed images from scantemp table
DoCmd.RunSQL "delete from scantemp"
'insert all newly scanned images into scantemp table
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG & "')"
If intPages >= 2 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG2 & "')"
End If
If intPages >= 3 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG3 & "')"
End If
If intPages >= 4 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG4 & "')"
End If
If intPages >= 5 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG5 & "')"
End If
If intPages >= 6 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG6 & "')"
End If
If intPages >= 7 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG7 & "')"
End If
If intPages >= 8 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG8 & "')"
End If
If intPages >= 9 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG9 & "')"
End If
If intPages >= 10 Then
DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG10 & "')"
End If
'output rptscan to predefined file path
Dim RptName As String
RptName = "rptScan"
DoCmd.OpenReport RptName, acViewDesign, , , acHidden
DoCmd.Close acReport, RptName, acSaveYes
DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFilePDF
'delete all jpeg files after report output
Dim fso46 As New FileSystemObject
fso46.DeleteFile strFileJPG
If intPages = 2 Then
fso46.DeleteFile strFileJPG2
ElseIf intPages = 3 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
ElseIf intPages = 4 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
ElseIf intPages = 5 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
ElseIf intPages = 6 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
fso46.DeleteFile strFileJPG6
ElseIf intPages = 7 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
fso46.DeleteFile strFileJPG6
fso46.DeleteFile strFileJPG7
ElseIf intPages = 8 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
fso46.DeleteFile strFileJPG6
fso46.DeleteFile strFileJPG7
fso46.DeleteFile strFileJPG8
ElseIf intPages = 9 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
fso46.DeleteFile strFileJPG6
fso46.DeleteFile strFileJPG7
fso46.DeleteFile strFileJPG8
fso46.DeleteFile strFileJPG9
ElseIf intPages = 10 Then
fso46.DeleteFile strFileJPG2
fso46.DeleteFile strFileJPG3
fso46.DeleteFile strFileJPG4
fso46.DeleteFile strFileJPG5
fso46.DeleteFile strFileJPG6
fso46.DeleteFile strFileJPG7
fso46.DeleteFile strFileJPG8
fso46.DeleteFile strFileJPG9
fso46.DeleteFile strFileJPG10
End If
Set fso46 = Nothing
DoCmd.SetWarnings True
MsgBox ("Done!")
ProcedureExit:
Exit Sub
ErrorHandler:
'Traps 'out of paper error.' Asks user if all documents were scanned properly, if yes is chosen, start PDF conversion, if no, restarts
'scan subroutine.
Select Case Err.Number
Case -2145320957
If MsgBox("Were all documents successfully scanned?", vbYesNo, "Confirm Scan") = vbYes Then
GoTo StartPDFConversion
Else
Call scan
End If
End Select
'Handles any other errors in subroutine
MsgBox "Error" & ":  " & Err.Number & vbCrLf & "Description: " _
& Err.Description, vbExclamation, Me.Name & ".ScanDocs"
Resume ProcedureExit
End Sub

Il n'a pas l'air de vous lire l'OP de la question. Quand il appelle Items(1).Transfer la première fois, toutes les pages sont numérisées par le chargeur. La prochaine fois que l' Transfer méthode est appelée, il recherche les pages dans le chargeur et ne trouve pas tout, à quel point il renvoie une erreur. (Il n'y a aucun moyen d'accéder à d'autres images, à travers le Scanner objet).

OriginalL'auteur Jim

0

J'ai un problème similaire. Écrit dans MS Access. Pour numériser à partir du scanner Broter 7065, avec l'ADF, le tout dans un seul fichier PDF. Et plus le temps d'écrire votre propre code. Beaucoup cherché, mais pas trouvé ce dont j'avais besoin.
Le problème a été résolu avec l'aide du programme "quick scan en ligne de Commande de numérisation TWAIN"http://www.burrotech.com/quickscan/
```
Private Sub Button27_Click()
Dim Nomer As Integer
Nomer = Forms!Nakladnaya!NomerLink ' invoice number from form
Shell CurrentProject.Path & "\quickscan.exe resolution 100 pdf showprogress filename " & CurrentProject.Path & "\scan\ScanN¹" & Nomer & "23.pdf " 
End Sub
```
OriginalL'auteur Russian Ivan
0

Pour ceux qui sont encore à travailler sur le problème, j'ai trouvé les solutions suivantes:

Selon formatID on utilise pour le Scanner.Les éléments(1).Transfert("formatID"), mon scanner soit arrêté après la numérisation 1 papier ou la poursuite de la numérisation (il ne fonctionne qu'avec BMP pour moi, et je suis en utilisant un HP Officejet J4680).

J'ai ensuite utilisé comme variable dire ADFstatus qui lit si il y a encore un papier dans le chargeur et l'ont utilisée pour créer une boucle while.(wiaScanner.Les propriétés.Élément("3087")). J'ai ensuite enregistré chaque image numérisée séparément, et il provoque l'ADF scanner de s'arrêter après chaque scan au lieu de numériser tous les documents à la fois.

par exemple:
```
Dim wiaImg As WIA.ImageFile
ADFStatus = wiaScanner.Properties.Item("3087").Value
counter = 0
While ADFStatus
counter = counter + 1
Set wiaImg = wiaScanner.Items(1).Transfer(WIA.FormatID.wiaFormatBMP)
wiaImg.SaveFile ("C:\Test\" & counter & ".bmp")
Set wiaImg = Nothing
ADFStatus = wiaScanner.Properties.Item("3087").Value
Wend
```
Espère que cette aide

OriginalL'auteur
0

Une autre alternative est d'acquérir les images que wiaFormatTIFF qui se traduira dans un multi-page tiff. Vous pouvez ensuite parcourir chaque page dans le format tiff et enregistrer chaque si vous avez besoin d'images séparées.

OriginalL'auteur Ian Moore
0

C'est un pas de lecteur pris en charge.
- Je résoudre ce de l'installation d'origine Twain Lecteur pour Brother DCP-8157

OriginalL'auteur user2813440

Vous devez vous connecter pour publier un commentaire.