Re: Text drucken

[Andy Fuchs <andy at foxwerk dot de>]

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.