Impression texte et images (petit tuto simple!!)

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

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)