Probleme de forecolor [VB] - VB/VBA/VBS - Programmation
Marsh Posté le 03-05-2002 à 17:30:19
Vi ca doit encore etre un truc tout con comme d'hab mais j'arrive pas a voir
Marsh Posté le 04-05-2002 à 02:06:57
dessin un rectangle noir et ecris en blanc dedans
printer.fillcolor = vbBlack 'couleur de remplissage
printer.fillmode = 1 ' mode de remplissage = 1 = opaque ( à vérifier qd même car je me souvient plus de la constane de tête )
printer.line (x1,y1)-(x2,y2),vbblack,B 'rectangle de contour noir et rempli de noir
printer.currentX= x3 'coordonnée du point ou va se faire la sortie texte
printer.currentY =y3
printer.print "TAISTE" '
Marsh Posté le 06-05-2002 à 10:15:22
Snif snif ca ne marche pas
En fait ca fait bien un carre noir pas de probleme mais dedans il y a un carre blanc avec du texte noir alors que j'aimerai un carre noir avec du texte blanc.
Marsh Posté le 06-05-2002 à 10:56:03
Ah j'avais oublie un detail qui a son importance j'imprime en mode paysage. Dans ce mode, il y a un certain nombre de BUGS : notamment il est impossible d'imprimer un texte blanc sur fond noir.
Donc merci a tous ceux qui ont repondu leur methode marche parfaitement mais uniquement pour une impression en mode portrait.
et pour M$$$$$
Marsh Posté le 06-05-2002 à 13:43:42
bon j'ai fait 2 ou 3 erreurs dans mon code (c'etait quand même 2h00 du matin samedi (ou vendredi soir quoi ) et j'avais une semaine de taff derriere moi:
-c'est FillStyle et pas FillMode
-j'avais oublié de selectionner la couleur blanche avant l'ecriture
voila le bon code :
Printer.Orientation = vbPRORLandscape ' ou vbPRORPortrait
Printer.FillColor = vbBlack 'couleur de remplissage
Printer.FillStyle = vbFSSolid ' remplissage solide
Printer.Line (X1, Y1)-(X2, Y2), vbBlack, B 'rectangle de contour noir et rempli de noir
Printer.CurrentX = x3 'coordonnée du point ou va se faire la sortie texte
Printer.CurrentY = y3
Printer.ForeColor = vbWhite 'ecriture blanche
Printer.Print "TAISTE"
Printer.EndDoc
Ca marche parfaitement que ce soit en mode Portrait ou Paysayge et je connais pas de BUGS à ce sujet d'ailleur.
Marsh Posté le 03-05-2002 à 17:07:26
Bonsoir,
J'aimerai imprimer un texte blanc sur fond noir, je voulais proceder de la maniere suivante :
Printer.forecolor = vbWhite
Printer.backcolor = vbBlack
Printer.Print "Blabla"
Mais ca ne marche pas car l'objet printer n'a pas la methode backcolor. Bien sur si je ne mets pas cet attribut j'ai un gros carre blanc qui s'affiche.
Est-ce qu'il y a un moyen alors d'imprimer un text blanc sur fond noir ?
Merci pour vos reponses.
Yannick