XProfan

Italia

Christof
Neuß

Ciao,

ich bestücke ein Richedit con testo, den ich mit
und etwas formatiere.

Wenn ich diesen jetzt zeilenweise an den Drucker schicke, kommen auf dem Ausdruck an den Stellen mit den Ersatzzeichen kleine Quadrate zum Vorschein.

Außerdem scheint ein
Usefont Courier,14,0,0,0,0
vor dem Druck nicht zu funktionieren.

Wer kann helfen.

DANKE.

Win10 16 GB RAM

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Max
Müller

Ciao,

Versuch mal @Chr$(13)+@Chr$(10) statt
und @Chr$(9) stat .

Wegen dem Font mal nen Minimalbeispiel posten.

Saluto
P.M.M

XProfan X3, X4ß, Win 10.1

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Christof
Neuß

Ich hab das jetzt mal so gelöst.
Kompilieren Markieren Separieren

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

Die
- und -Zeichen werden wohl automatisch in Chr$(13) und Chr$(9) umgesetzt. Sind zumindest so im String enthalten.
Kann es sein, dass DrawText nicht mit nicht-proportionalen Schriften umgehen kann? In der Bildschirmanzeige funktioniert die Schriftart Courier, also muss sie ja da sein.

Achja, Elemente&[13] ist das Handle per das Richedit-Control.

Danke und Saluto

Win10 16 GB RAM

13.02.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Freier

Versuch einmal:
Kompilieren Markieren Separieren

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