Visual Basic - imprimir letras blancas sobr fondo negro

Life is soft - evento anual de software empresarial
 
Vista:

imprimir letras blancas sobr fondo negro

Publicado por Santiago (4 intervenciones) el 06/02/2001 10:33:51
Deseo imprimir (en impresora) texto blanco sobre fondo de otro color, al modo que en un label en pantalla pondría backcolor=vbblack y forecolor=vbwhite. ¿Alguien sabe como?. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:imprimir letras blancas sobr fondo negro

Publicado por Santiago (4 intervenciones) el 27/02/2001 10:15:40
Hay que utilizar la propiedad fonttransparent del objeto printer pero en vb5 hay un
bug que impide que esto funcione correctamente. Hay que utilizar la siguiente api:

Private Declare Function SetBkMode Lib "gdi32" _
(ByVal hdc As Long, ByVal nBkMode As Long) As Long

Private iBKMode As Long
Private Const TRANSPARENT = 1
Private Const OPAQUE = 2

Y al imprimir:
If TypeOf Un_Obj Is Printer Then
'PARA MAS VER msdn
'PRB: Setting FontTransparent Has No Effect on Windows 95
'Last reviewed: July 7, 1997
'Article ID: Q145726

'Correctly sets the background mix mode to transparent
iBKMode = SetBkMode(Printer.hdc, TRANSPARENT)
Else
'es un picture box
Un_Obj.FontTransparent = True

End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar