imprimer texte dans rectangle plein

Question

Je cherche à imprimer un texte dans un rectangle coloré.
Lorsque j'imprime le texte puis le rectangle, le texte n'apparaît pas.
Lorsque j'imprime le rectangle puis le texte, le texte apparaît sur fond blanc.
J'utilise les propriétés printer.fonttransparent=true et Printer.FillStyle = 0
Si quelqu'un a déjà réalisé celà, un petit exemple serait le bienvenu.
D'avance, merci

Int19h · Answer

salut

Je sais pas si c'est le meilleur moyen, mais ca devrait etre bon (en plus je peux pas tester, j'ai pas d'imprimante sous la main :-(

Passe pas un PictureBox :
Picture1.AutoRedraw = True
' On travaille en Pixel sur l'image, c'est plsu simple
Picture1.ScaleMode = vbPixels
' Dimmension de l'image
Picture1.Width = 120
Picture1.Height = 100
' On va griller la cartouche de Rouge ;-)
Picture1.BackColor = RGB(255, 0, 0)
' Position du texte dans l'image
Picture1.CurrentX = 30
Picture1.CurrentY = 10
' Couleur du texte dans l'image
Picture1.ForeColor = RGB(0, 0, 255)
' Texte a afficher
Picture1.Print "BONJOUR"

' On dit qu'on veux imprimer l'image Picture1
' A l'emplacement 10,10 sur la feuille
Printer.PaintPicture Picture1, 10, 10
' Lance L'impression
Printer.EndDoc

Voila, je sais pas si ca t'aidera, mais ca devrait marcher un truc dans ce genre la...

++

Int19h

cs_pitch · Answer

J'ai trouvé la solution.
Il suffit d'imprimer le texte puis le rectangle avec la propriété DrawMode=9.

Imprimer texte dans rectangle plein

2 réponses

Discussions similaires