Impression texte et images (petit tuto simple!!)

Soyez le premier à donner votre avis sur cette source.

Vue 15 726 fois - Téléchargée 2 866 fois

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 !!!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
27
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
29 octobre 2012

merci, simple et efficace ;)
Messages postés
4
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 mars 2011

tu sais que la langue arabe s'écrit de droite à gauche.Comment on peut imprimer un texte en arabe qui doit commencer de droite.
Messages postés
10
Date d'inscription
vendredi 5 janvier 2007
Statut
Membre
Dernière intervention
21 février 2007

merci c'est bien
10/10
Messages postés
66
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
29 septembre 2008

Merci pour cette source
Messages postés
30
Date d'inscription
dimanche 22 janvier 2006
Statut
Membre
Dernière intervention
1 avril 2010

Merci exactement ce que je chercher, de plus bien commenté !
Afficher les 15 commentaires

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.