Erreur Twain vers multi pdf
Posted: Sat Sep 20, 2008 8:30 am
Bonjour
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
ou est le topic en français?
comment faire de la reconnaissance de caractère?
merçi de vos réponses
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