J'utilise une multifonction HP Officejet J6415 dont les pilotes sont à jour au 08/05/2010 (d'après l'utilitaire de maj HP)
GdPicturePro à jour également (5.13.0 du 03 mai 2010)
Windows Xp Pro Sp3
Je scan des doc A4 cers Pdf.
Le scanner me recadre systématiquement les images en enlevant les bordures blanches alors que je souhaiterai mon document au format brut A4.
Voici le code
- Code: Select all
Private Sub cmdAsaTest_Click()
Imaging1.TwainLogStart ("H:\Ana\aaaTwainlog.txt")
Imaging1.TwainOpenDefaultSource
If Imaging1.TwainGetState() > 3 Then
Imaging1.TwainSetCurrentResolution (Me.cmbResolution.Value)
Imaging1.TwainSetCurrentPixelType (Me.cmbMode.Value)
Imaging1.TwainSetPaperSize (1) 'A4
Else
MsgBox "Réglages non appliqués", vbExclamation
End If
Imaging1.TwainSetAutomaticBorderDetection (False)
hauteur = Imaging1.TwainGetPhysicalHeight()
largeur = Imaging1.TwainGetPhysicalWidth()
origineX = 0
origineY = 0: MsgBox hauteur & vbCrLf & largeur
Imaging1.TwainSetHideUI (True)
Imaging1.TwainSetAutoFeed (True)
Imaging1.TwainSetAutoScan (True)
Call Imaging1.TwainResetImageLayout
'autre essai avec Call Imaging1.TwainSetImageLayout(origineX, origineY, largeur, hauteur)
Call Imaging1.TwainSetAutoSize(False)
If Imaging1.TwainPdfStartEx("H:\Ana\aaaMyPdf.pdf") = 0 Then
While Imaging1.CreateImageFromTwain(hwnd) <> 0
Imaging1.TwainAddGdPictureImageToPdf (Imaging1.GetNativeImage)
Imaging1.CloseNativeImage
Wend
Imaging1.TwainPdfStop
End If
Imaging1.TwainCloseSource
End Sub
Ci joint le twainlog
Cordialement
Jissé
.