je veut créer un multi pDF mais erreur "propriété ou méthode non gérée par cet objet"
au niveau de la ligne Call Imaging1.PdfAddImageFromImageID(nImageID) très certainement
dans le code
Code: Select all
Dim nImageCount As Long
Dim nImageID As Long
Dim nCpt As Long
If Imaging1.TwainOpenDefaultSource() Then
nImageCount = 0
Imaging1.TwainSetAutoFeed (True) 'Set AutoFeed Enabled
Imaging1.TwainSetAutoScan (True) 'To achieve the maximum scanning rate
Imaging1.TwainSetCurrentResolution (300)
Imaging1.TwainSetCurrentPixelType (TWPT_RGB) 'RGB
Imaging1.TwainSetCurrentBitDepth (8) ' 24 bpp
Imaging1.PdfNewPdf ("output.pdf")
While Imaging1.CreateImageFromTwain(Me.Hwnd) <> 0
nImageID = Imaging1.GetNativeImage
nImageCount = nImageCount + 1
Call Imaging1.PdfAddImageFromImageID(nImageID)
Imaging1.CloseImage (nImageID)
Wend
For nCpt = 1 To nImageCount
Call Imaging1.PdfSetPageDimensions(Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
Imaging1.PdfNewPage
Call Imaging1.PdfDrawImage(nCpt, 0, 0, Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
Imaging1.PdfEndPage
Next nCpt
Imaging1.PdfSavePdf
Call Imaging1.TwainCloseSource
MsgBox "Done !"
Else
MsgBox "can't open default source, twain state is: " & Trim(str(Imaging1.TwainGetState))
End If
comment faire de la reconnaissance de caractère?
merçi de vos réponses