'Hallo Thomas...
'Eine ganz simple Möglichkeit eine Zeichenkette wie Du es wolltest "farbig" zu 
' drucken.
'Zum Test erfolgt die Textausgabe einmal auf der Form und dann auf dem Drucker.
'NG.: 02.07.03
'
Private Sub Command2_Click()
    With Me
        Const s As String = "Frank"
        Dim n   As Integer
        .FontSize = 20
 
        For n = 1 To Len(s)
            ''''''Anfang Ausgabe auf der Form...
            If n = 4 Then .ForeColor = vbRed        'Alle Zeichen vor 4 
            ' Standardfarbe
            If n = 5 Then .ForeColor = vbBlack      '4. Zeichen rot, 5. Zeichen 
            ' wieder Standardfarbe.
            Me.Print Mid(s, n, 1);
            ''''''Ende Ausgabe auf der Form...
 
            ''''''Anfang Ausgabe auf dem Drucker...
            With Printer
                .FontSize = 20
                If n = 4 Then .ForeColor = vbRed    'Alle Zeichen vor 4 
                ' Standardfarbe
                If n = 5 Then .ForeColor = vbBlack  '4. Zeichen rot, 5. Zeichen 
                ' wieder Standardfarbe.
                Printer.Print Mid(s, n, 1); 'Charpos (s.OH)
                ''''''Ende Ausgabe auf dem Drucker...
            End With
            Next
        Printer.EndDoc
   End With
End Sub
'MfG
'Frank