Permet de faire des photocopies via son scanner et son imprimante. Possibilité de modifier la résolution de scan, de changer les proportions et de choisir noir ou blanc ou couleurs.
Je pense aussi qu'il serait bien de mettre l'aperçu en taille réel au lieu d'un aperçu vignete.
Une chose aussi à penser c'est que l'utilisateur pourrait ne pas avoir envie d'imprimer tout de suite le scan réalisé (ou scan mal fait) donc akouter un bouton Imprimer serait le bien venu.
Oui je suis d'accord avec PaTaTe ..
Aussi ajouter la possibilité de choisir l'imprimante an cas de plusieurs imprimantes installés (Imprimante Locale + Imprimantes réseau) ..
De toute façon le code est clair et facilement adaptable.
Merci pour la source.
Je te conseille de faire un fonction pour l'impression séparer de la numérisation pourquoi ?
Simplement parce que si une erreur se passe sur la numérisation ou sur l'impression, on ne sait pas lequel déclenche l'erreur donc en mettant
Private Sub cmdNumériser_Click()
On Error GoTo gestionErr
TWAIN_OpenDefaultSource
TWAIN_SetHideUI (1) 'cache l'interface de l'utilisateur
'a=TWAIN_GetPixelType
'b=TWAIN_GetCurrentThreshold
'c=TWAIN_GetBitDepth
'************************************************
'TWAIN_SetContrast (8) 'LA j'y arrive po !!!!!
'TWAIN_SetBrightness (8)
'TWAIN_SetThreshold (8)
'TWAIN_SetGamma (8)
'TWAIN_SetShadow (8)
'TWAIN_SetHighlight (8)
'************************************************
If reso < 70 Then reso = 70
TWAIN_SetCurrentResolution (reso) 'résolution en dpi
TWAIN_SetCurrentPixelType (typedoc) 'Définit le type de couleur
TWAIN_SetBitDepth (bit) 'idem
r = TWAIN_AcquireToClipboard(Me.hWnd, t%)
I.Picture = Clipboard.GetData(vbCFDIB)
I.Stretch = True
I.Height = 1888
I.Width = 1335
largI = largI * P / 100
LongI = LongI * P / 100
'frmAperçu.Show
Me.Show
MousePointer = 13
Imprimer
MousePointer = 0
Exit Sub
gestionErr:
MsgBox "Il y a eu un problème lors de la numerisation, veuillez quitter"
End Sub
Private Function Imprimer()
On Error GoTo Erreur
Printer.ScaleMode = 7
Printer.Copies = numC
Printer.PaintPicture I, -0.5, -1.2, largI, LongI
Printer.EndDoc
Exit Function
Erreur:
MsgBox "Impression du document impossible !", vbCritical, "Impression"
End Function
10 sept. 2004 à 00:19
Une chose aussi à penser c'est que l'utilisateur pourrait ne pas avoir envie d'imprimer tout de suite le scan réalisé (ou scan mal fait) donc akouter un bouton Imprimer serait le bien venu.
A develloper donc ...
9 sept. 2004 à 18:07
Aussi ajouter la possibilité de choisir l'imprimante an cas de plusieurs imprimantes installés (Imprimante Locale + Imprimantes réseau) ..
De toute façon le code est clair et facilement adaptable.
Merci pour la source.
9 sept. 2004 à 17:19
:-)
9 sept. 2004 à 12:36
Je te conseille de faire un fonction pour l'impression séparer de la numérisation pourquoi ?
Simplement parce que si une erreur se passe sur la numérisation ou sur l'impression, on ne sait pas lequel déclenche l'erreur donc en mettant
Private Sub cmdNumériser_Click()
On Error GoTo gestionErr
TWAIN_OpenDefaultSource
TWAIN_SetHideUI (1) 'cache l'interface de l'utilisateur
'a=TWAIN_GetPixelType
'b=TWAIN_GetCurrentThreshold
'c=TWAIN_GetBitDepth
'************************************************
'TWAIN_SetContrast (8) 'LA j'y arrive po !!!!!
'TWAIN_SetBrightness (8)
'TWAIN_SetThreshold (8)
'TWAIN_SetGamma (8)
'TWAIN_SetShadow (8)
'TWAIN_SetHighlight (8)
'************************************************
If reso < 70 Then reso = 70
TWAIN_SetCurrentResolution (reso) 'résolution en dpi
TWAIN_SetCurrentPixelType (typedoc) 'Définit le type de couleur
TWAIN_SetBitDepth (bit) 'idem
r = TWAIN_AcquireToClipboard(Me.hWnd, t%)
I.Picture = Clipboard.GetData(vbCFDIB)
I.Stretch = True
I.Height = 1888
I.Width = 1335
largI = largI * P / 100
LongI = LongI * P / 100
'frmAperçu.Show
Me.Show
MousePointer = 13
Imprimer
MousePointer = 0
Exit Sub
gestionErr:
MsgBox "Il y a eu un problème lors de la numerisation, veuillez quitter"
End Sub
Private Function Imprimer()
On Error GoTo Erreur
Printer.ScaleMode = 7
Printer.Copies = numC
Printer.PaintPicture I, -0.5, -1.2, largI, LongI
Printer.EndDoc
Exit Function
Erreur:
MsgBox "Impression du document impossible !", vbCritical, "Impression"
End Function
Ca serait un peu plus clair non ?
8/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.