Photocopieur simple
Soyez le premier à donner votre avis sur cette source.
Vue 7 723 fois - Téléchargée 969 fois
Description
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.
Codes Sources
A voir également
- Photocopieur simple
- Programme python jeu simple - Guide
- Jeu simple javascript - Guide
- Code calculatrice simple en java - Guide
- Compteur php simple - Guide
- Ora-00937: la fonction de groupe ne porte pas sur un groupe simple ✓ - Forum - SQL
Commentaires
- Messages postés
-
2075
- Date d'inscription
- mercredi 21 août 2002
- Statut
- Contributeur
- Dernière intervention
- 16 mars 2020
2Une 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 ...
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.
- Messages postés
-
309
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 15 juin 2015
1:-)
- Messages postés
-
2075
- Date d'inscription
- mercredi 21 août 2002
- Statut
- Contributeur
- Dernière intervention
- 16 mars 2020
2Je 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.