Impression Couleur

Signaler
-
 cjvg -
Bonjour,

Je souhaite mettre de la couleur sur certains mots importants du texte que je souhaite imprimer.

Dans l'exemple ci dessous le couleur n'est pas prise en compte, le texte est imprimé en noir

'    Printer.ColorMode = 2
Printer.ScaleMode = vbMillimeters
Printer.CurrentX = 50
Printer.CurrentY = 30
Printer.Font = "Comic sans Ms"
Printer.FontSize = 20
Printer.FontItalic = False
Printer.FontBold = True
Printer.FontUnderline = False
Printer.ForeColor = vbBlue     <======================
Printer.Print "Porte Cuisine"


par avance merci.

5 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Bonjour,
pourquoi avoir mis en commentaire la première ligne de ton code ?
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Et si ceci :


 Printer.Print "coucou ";
Printer.ForeColor = vbBlue
Printer.FontBold = True
Printer.Print " bonjour en bleu. "; ici
Printer.FontBold = False
Printer.ForeColor = vbred
Printer.Print " bonjour en rouge"
Printer.EndDoc

ne marche pas, cela voudrait dire que ton imprimante n'est pas totalement compatible Windows

Bonjour Mr Ucfoutu,

Ls instructions que vous avez données impriment correctement le texte aux couleurs demandées.

J'ai ensuite exécuté les 3 instructions ci-dessous
Printer.FontBold = False
Printer.ForeColor = vbRed
Printer.Print " bonjour en rouge";
Résultat: impression en Noir

Puis:
Printer.print " "
Printer.FontBold = False
Printer.ForeColor = vbRed
Printer.Print " bonjour en rouge";
Résultat: Impression correcte.

Avec Printer.Print " " en tête de mes instructions mon impression se déroule maintenant correctement.

Encore merci pour votre aide.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Ton Printer.Print " " n'a fait que provoquer un saut de ligne (qui aurait été également provoqué sans le ";" utilisé dans mon excemple).
Sujet alors à libérer (un clic sur le tag resolu), s'il te plait

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
(un clic sur le tag resolu)

J'ai cherché ce tag à plusieurs reprises mais je ne l'ai pas trouvé

Désolé.