Bonjour à tous,
Au départ de printer.print et avec une imprimante couleur
est-il possible de surligner (pas souligner) la phrase
entière voire un ou 2 mots ?
texte=Ex turba vero imae sortis
Printer.Print texte
Merci d'avance.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
Bonjour à tous,
Au départ de printer.print et avec une imprimante couleur
est-il possible de surligner (pas souligner) la phrase
entière voire un ou 2 mots ?
texte=Ex turba vero imae sortis
Printer.Print texte
Merci d'avance.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
Bonjour à tous,
Au départ de printer.print et avec une imprimante couleur
est-il possible de surligner (pas souligner) la phrase
entière voire un ou 2 mots ?
texte=Ex turba vero imae sortis
Printer.Print texte
Merci d'avance.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Salut Vincent et Jean-Pol
Effectivement je n'ai pas mieux mais par contre j'ai vu sur le net qu'il y
a un bug dans la fonction FontTransparent de l'objet printer.
il faut utiliser une api : voilà comment j'ai repris un code, pour un
usage perso..
ici dans une proriété de classe qui gère justement une écriture sur un
fond de couleur : ce qui revient au même que vincent
Private Const FondTransparent = 1
Private Const FondOPAQUE = 2
Public Property Let FontTransparent(ByVal vNewValue As Boolean)
Dim iBKMode As Long
If PrintFlag Then
Printer.FontTransparent = vNewValue
If vNewValue Then
iBKMode = SetBkMode(Printer.hDC, FondTransparent) ' on utilise
cette façon
' car il y a apparemmnt un bug dans la fonction FontTransparent
de Printer
Else
iBKMode = SetBkMode(Printer.hDC, FondOPAQUE)
'Printer.FontTransparent = True
End If
Else
ObjPrint.FontTransparent = vNewValue
Debug.Print "Fond transparent = " & ObjPrint.FontTransparent
End If
End Property
Driss
"Vincent Guichard" a écrit dans le message de
news: 4b013224$0$927$
Driss HANIB a écrit :Bonjour
Bonjourici utiliser Printer.Font.Underline = True
avant le texte à souligner
Non, justement, il veut surligner le texte, pas le souligner!
"David" a écrit dans le message de news:
>> est-il possible de surligner (pas souligner) la phrase
>> entière voire un ou 2 mots ?
Il n'y a pas de moyen direct de faire ça à ma connaissance, mais il est
très simple de faire une fonction pour simuler le comportement que tu
désire: il suffit de dessiner un rectangle plein avant d'écrire dessus
le texte à surligner. Par exemple:
Sub TexteSurligne(texte As String, couleur As ColorConstants)
Dim h As Single, w As Single, x As Single, y As Single, t As Boolean
t = Printer.FontTransparent
h = Printer.TextHeight(texte)
w = Printer.TextWidth(texte)
x = Printer.CurrentX
y = Printer.CurrentY
Printer.Line Step(0, 0)-Step(w, h), couleur, BF
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontTransparent = True
Printer.Print texte;
Printer.FontTransparent = t
End Sub
Vincent Guichard
Salut Vincent et Jean-Pol
Effectivement je n'ai pas mieux mais par contre j'ai vu sur le net qu'il y
a un bug dans la fonction FontTransparent de l'objet printer.
il faut utiliser une api : voilà comment j'ai repris un code, pour un
usage perso..
ici dans une proriété de classe qui gère justement une écriture sur un
fond de couleur : ce qui revient au même que vincent
Private Const FondTransparent = 1
Private Const FondOPAQUE = 2
Public Property Let FontTransparent(ByVal vNewValue As Boolean)
Dim iBKMode As Long
If PrintFlag Then
Printer.FontTransparent = vNewValue
If vNewValue Then
iBKMode = SetBkMode(Printer.hDC, FondTransparent) ' on utilise
cette façon
' car il y a apparemmnt un bug dans la fonction FontTransparent
de Printer
Else
iBKMode = SetBkMode(Printer.hDC, FondOPAQUE)
'Printer.FontTransparent = True
End If
Else
ObjPrint.FontTransparent = vNewValue
Debug.Print "Fond transparent = " & ObjPrint.FontTransparent
End If
End Property
Driss
"Vincent Guichard" <vg.bleuciel.sa@wanadoo.fr> a écrit dans le message de
news: 4b013224$0$927$ba4acef3@news.orange.fr...
Driss HANIB a écrit :
Bonjour
Bonjour
ici utiliser Printer.Font.Underline = True
avant le texte à souligner
Non, justement, il veut surligner le texte, pas le souligner!
"David" <bs173990@skynet.be> a écrit dans le message de news:
>> est-il possible de surligner (pas souligner) la phrase
>> entière voire un ou 2 mots ?
Il n'y a pas de moyen direct de faire ça à ma connaissance, mais il est
très simple de faire une fonction pour simuler le comportement que tu
désire: il suffit de dessiner un rectangle plein avant d'écrire dessus
le texte à surligner. Par exemple:
Sub TexteSurligne(texte As String, couleur As ColorConstants)
Dim h As Single, w As Single, x As Single, y As Single, t As Boolean
t = Printer.FontTransparent
h = Printer.TextHeight(texte)
w = Printer.TextWidth(texte)
x = Printer.CurrentX
y = Printer.CurrentY
Printer.Line Step(0, 0)-Step(w, h), couleur, BF
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontTransparent = True
Printer.Print texte;
Printer.FontTransparent = t
End Sub
Vincent Guichard
Salut Vincent et Jean-Pol
Effectivement je n'ai pas mieux mais par contre j'ai vu sur le net qu'il y
a un bug dans la fonction FontTransparent de l'objet printer.
il faut utiliser une api : voilà comment j'ai repris un code, pour un
usage perso..
ici dans une proriété de classe qui gère justement une écriture sur un
fond de couleur : ce qui revient au même que vincent
Private Const FondTransparent = 1
Private Const FondOPAQUE = 2
Public Property Let FontTransparent(ByVal vNewValue As Boolean)
Dim iBKMode As Long
If PrintFlag Then
Printer.FontTransparent = vNewValue
If vNewValue Then
iBKMode = SetBkMode(Printer.hDC, FondTransparent) ' on utilise
cette façon
' car il y a apparemmnt un bug dans la fonction FontTransparent
de Printer
Else
iBKMode = SetBkMode(Printer.hDC, FondOPAQUE)
'Printer.FontTransparent = True
End If
Else
ObjPrint.FontTransparent = vNewValue
Debug.Print "Fond transparent = " & ObjPrint.FontTransparent
End If
End Property
Driss
"Vincent Guichard" a écrit dans le message de
news: 4b013224$0$927$
Driss HANIB a écrit :Bonjour
Bonjourici utiliser Printer.Font.Underline = True
avant le texte à souligner
Non, justement, il veut surligner le texte, pas le souligner!
"David" a écrit dans le message de news:
>> est-il possible de surligner (pas souligner) la phrase
>> entière voire un ou 2 mots ?
Il n'y a pas de moyen direct de faire ça à ma connaissance, mais il est
très simple de faire une fonction pour simuler le comportement que tu
désire: il suffit de dessiner un rectangle plein avant d'écrire dessus
le texte à surligner. Par exemple:
Sub TexteSurligne(texte As String, couleur As ColorConstants)
Dim h As Single, w As Single, x As Single, y As Single, t As Boolean
t = Printer.FontTransparent
h = Printer.TextHeight(texte)
w = Printer.TextWidth(texte)
x = Printer.CurrentX
y = Printer.CurrentY
Printer.Line Step(0, 0)-Step(w, h), couleur, BF
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontTransparent = True
Printer.Print texte;
Printer.FontTransparent = t
End Sub
Vincent Guichard