Text drucken

[Stefan Mettenbrink]

Ich nutze folgenden Code um Text zu drucken:
   EditField2.text=TextAusgeben

   g=OpenPrinterDialog()
   If g <> Nil then
     g.ForeColor=rgb(0,0,0)
     EditField2.SelStart=0
     EditField2.SelLength=len(EditField2.Text)+1
     EditField2.SelTextColor=rgb(0,0,0)
     EditField2.TextColor=rgb(0,0,0)
     stp=EditField2.StyledTextPrinter(g,540)
     stp.width = 540

     ColumnToPrint = 1
     Do until stp.eof
       stp.DrawBlock 0,0,780
       If Not stp.eof then // more text to print
         g.nextPage
       End if
     Loop
   End if


In der Vorschau ist die Schriftfarbe immer grau und nicht schwarz.
Irgendwie stehe ich auf dem Schlauch. Was mache ich falsch?

MfG, Metti.