H Metti,
vermutlich hast du die 'autoDeactivate' property vom Editfield angeschaltet.
Wenn der PrinterDialog im Vordergrund ist, dann ist ja die Forecolor vom
deaktivierten Editfield grau. Und deshalb auch dein Text grau
Übrigens könnte man die Loop so kürzen:
While not stp.eof
stp.DrawBlock 0,0,780
g.nextPage
wend
andy
at 27.03.08 14:26, Stefan Mettenbrink wrote:
> 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.
