Impression texte et images (petit tuto simple!!)

0/5 (15 avis)

Vue 17 193 fois - Téléchargée 2 937 fois

Télécharger le projet
Commenter

Description

Voila un petit tuto simple et efficace pour utiliser l'objet Printer!!
C'est assez simple : pour imprimer du texte (Printer.print) pour une image (printer.paintpicture)

j'ai joint une source commentée qui applique le code, ainsi qu'une capture écran!!!

Source / Exemple : 


'Pour imprimer du texte

Printer.ScaleMode = vbMillimeters 'Coordonées en mm
Printer.CurrentX = 20 'imprime a 20mm du bord gauche de la feuille
Printer.CurrentY = 30 'imprime a 30mm a partir du haut de la feuille
Printer.Font = "Arial" ' definit la police d'impression
Printer.FontSize = 12 'taille d'impression
Printer.FontItalic = True 'italic
Printer.FontBold = True 'gras
Printer.FontUnderline = True 'souligné
Printer.ForeColor = VbRed 'couleur d'impression
Printer.Print "1er ligne Test" 'Imprime le texte

Printer.CurrentX = 50 'imprime a 50mm du bord gauche de la feuille
Printer.CurrentY = 10 'imprime a 10mm a partir du haut de la feuille
Printer.ForeColor = VbBlack'couleur d'impression
Printer.Print "2émer ligne Test" 'Imprime le texte
Printer.EndDoc 'lance l'impresion

'-------------------------------------------------------------------------
' Impression d'une image "Utilisation de paintpicture"
Printer.ScaleMode = vbMillimeters 'Coordonées en mm

'impression de picture1 à 10mm en partant de la gauche de feuille et 20mm en partant du haut sur (100mm de large et 150 de haut)
Printer.PaintPicture picture1, 10, 20, 100, 150
Printer.EndDoc

'impression d'une image selon un chemin
Printer.ScaleMode = vbMillimeters
Dim MonImage As StdPicture
Set MonImage = LoadPicture("c:\\image.jpg")
Printer.PaintPicture MonImage, 10, 20, 100, 150
Printer.EndDoc

'---------------------------------------------------------------------------
'Lister les imprimantes instalées
For Each X In Printers
    Listimp.AddItem X.DeviceName
Next
'selection de l'imprimante par defaut
Listimp.Text = Printer.DeviceName

Conclusion :


Ps: Si ça ne vous parait pas claire, faite le moi savoir!!!! je compléterai ou modifierai !!!!
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_ajaja Messages postés 27 Date d'inscription jeudi 30 octobre 2003 Statut Membre Dernière intervention 29 octobre 2012
23 déc. 2008 à 01:27
merci, simple et efficace ;)
medchercheur Messages postés 4 Date d'inscription mercredi 22 mars 2006 Statut Membre Dernière intervention 22 mars 2011
28 mai 2007 à 16:05
tu sais que la langue arabe s'écrit de droite à gauche.Comment on peut imprimer un texte en arabe qui doit commencer de droite.
adelt123 Messages postés 10 Date d'inscription vendredi 5 janvier 2007 Statut Membre Dernière intervention 21 février 2007
21 févr. 2007 à 13:41
merci c'est bien
10/10
bbcluny Messages postés 66 Date d'inscription mardi 25 mars 2003 Statut Membre Dernière intervention 29 septembre 2008
15 févr. 2007 à 15:27
Merci pour cette source
benahmedsoufiane Messages postés 30 Date d'inscription dimanche 22 janvier 2006 Statut Membre Dernière intervention 1 avril 2010
6 févr. 2007 à 22:08
Merci exactement ce que je chercher, de plus bien commenté !
S'inscrire maintenant

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.

Du même auteur (pcpunch)