La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  514 - IMPRIMIR TEXTO EN COLOR
Autor:  Juan Pelaez Boismorand
Para el problema de escribir texto en colores escribí el siguiente código :
Dim texto As String

Texto = "AAA"
Printer.colorMode = 2
Printer.ForeColor=RGB(255,0,0) => Rojo
Printer.print texto

Me imprime AAA en NEGRO, estoy usando una HP DesKJet 660C ¿ que está pasando ¿
  Respuesta:  Luis Pérez
Al listado le falta una línea que ceba la impresora y evita el bug de VB al imprimir
Dim texto As String

texto = "AAA"
Printer.ColorMode = 2
´Añade la línea siguiente
Printer.Print ""

Printer.ForeColor = RGB(255, 0, 0) ´>= Rojo
Printer.Print texto