[VB] Probleme de forecolor

Probleme de forecolor [VB] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 03-05-2002 à 17:07:26   

Reply

Marsh Posté le 03-05-2002 à 17:24:46    

Tjs a fond dans les impressions Yannick :D (le up caché [:screamfr] )

Reply

Marsh Posté le 03-05-2002 à 17:29:26    

Je vois que toi aussi tu postes :)

Reply

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

Reply

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" '

Reply

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.

Reply

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$$$$$ :gun:

Reply

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 :D ) 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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed