[vb6] Stampa testo a colori

[L'Aquila]

Nella stampa di un testo, vorrei decidere di che colore sarà la stampa di questo. Ho provato a dare dei valori alle proprietà FillColor e ForeColor senza risultati...

[yyzyyz]

Private Sub Command1_Click()
'posizionamento sul foglio
Printer.CurrentX = 1000
Printer.CurrentY = 1000
'per cambiare il font
Printer.FontSize = 10
Printer.Font = "Tahoma"
Printer.FontBold = False
' abilita colore font
Printer.ColorMode = vbPRCMColor
Printer.ForeColor = RGB(255, 0, 0) ' stampa in rosso
' stampa
Printer.Print "123456"
' fine stampa
Printer.EndDoc
' torna in modalita monocromatica (nero)
Printer.ColorMode = vbPRCMMonochrome
End Sub

[L'Aquila]

Grazie, il tuo codice mi ha fatto capire che devo specificare il colore appena prima del metodo Print: così funziona.

Grazie