XProfan

Español

Christof
Neuß

¡Hola,

Yo bestücke una Richedit con texto, el I, con
y algo formatiere.

Wenn Yo esta ahora zeilenweise a el Drucker schicke, kommen en el Ausdruck a el Stellen con el Ersatzzeichen kleine Quadrate para Vorschein.

Außerdem scheint una
Usefont Courier,14,0,0,0,0
antes el Druck no a trabajo.

Wer kann helfen.

DANKE.

Win10 16 GB RAM

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Max
Müller

¡Hola,

Intento veces @Chr$(13)+@Chr$(10) en lugar de
y @Chr$(9) stat .

Wegen el Font veces nen Minimalbeispiel puesto.

Saludo
P.M.M

XProfan X3, X4ß, Win 10.1

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Christof
Neuß

Yo el ahora veces así gelöst.
Kompilieren Marca Separación

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

El
- y -Signo voluntad wohl automáticamente en Chr$(13) y Chr$(9) umgesetzt. Sind zumindest así en el String enthalten.
Kann lo ser, dass DrawText no con no-proportionalen Schriften umgehen kann? In el Bildschirmanzeige funktioniert el Schriftart Courier, also muss ellos sí como ser.

Achja, Elemente&[13] es el Handle para el Richedit-Control.

Gracias y Saludo

Win10 16 GB RAM

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Intento una vez:
Kompilieren Marca Separación

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), ))