XProfan

English

Christof
Neuß

Hi,

I bestücke one Richedit with text, whom I with
and something format.

If I this now line by line on whom printer mail, come on the expression on whom to put with the Ersatzzeichen small Squares to that Vorschein.

Also seems a
Usefont Courier,14,0,0,0,0
to the pressure not To functions.

who can help.

THANK YOU.

Win10 16 GB RAM

02/13/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Max
Müller

Hi,

attempt time @Chr$(13)+@Chr$(10) instead of
and @Chr$(9) stat .

because of the Font time NEN Minimalbeispiel post.

Greeting
P.M.M

XProfan X3, X4ß, Win 10.1

02/13/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Christof
Neuß

I Have the now time so resolved.
Compile Mark Separation

PROC DruckeZeile

    Parameters rechts%,runter%,Text$

    if left$(Text$,1)=Chr$(9)

        Text$=mid$(Text$,2,Len(Text$)-1)
        rechts%=rechts%+20

    endif

    DrawText rechts%,runter%,Trim$(Translate$(Text$,Chr$(9),     ))

ENDPROC

PROC HinweiseDrucken

    DECLARE druckzeile$
    VAR zeile%=0

    if MessageBox(Soll der Ausdruck auf dem Standarddrucker gestartet werden?,Frage,292)=6 JA

        StartPrint Hinweise
        UseFont Arial,16,0,1,0,1
        DrawText 50,20, Hinweisseite zur Datenaufbereitung für das Union Investment-Projekt
        UseFont COURIER,14,0,0,0,0

        if %Printing

            Whileloop GetLineCount(Elemente&[13]) Anzahl Zeilen

                zeile%=zeile%+1
                druckzeile$=GetLine$(Elemente&[13],&LOOP-1) einzelne Zeilen auslesen
                druckzeile$=left$(druckzeile$,len(druckzeile$)-1)
                DruckeZeile(50,20*(zeile%+2),druckzeile$)
                DrawText 50,20*(zeile%+2), druckzeile$

                if zeile%=40

                    NextPage
                    zeile%=0
                    UseFont Arial,16,0,1,0,1
                    DrawText 50,20, Hinweisseite zur Datenaufbereitung für das Union Investment-Projekt
                    UseFont COURIER,14,0,0,0,0

                EndIf

            Wend

        endif

        EndPrint

    endif

ENDPROC

The
- and -characters go well automatically in Chr$(13) and Chr$(9) umgesetzt. are at least so in the string include.
can it his, that DrawText not not-proportionalen Schriften bypass can? in the crt display functions The type Courier, means must tappt im dunkeln Yes there his.

Achja, Elemente&[13] is the lever for the Richedit-Control.

thanks and Greeting

Win10 16 GB RAM

02/13/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

attempt once:
Compile Mark Separation

PROC DruckeZeile

    Parameters rechts%,runter%,Text$

    if left$(Text$,1)=Chr$(9)

        Text$=mid$(Text$,2,Len(Text$)- 1)
        rechts%=rechts%+20

    endif

    UseFont COURIER,14,0,0,0,0
    DrawText rechts%,runter%,Trim$(Translate$(Text$,Chr$(9), ))