| |
| |
|
Christof
Neuß | Hallo,
ich bestücke ein Richedit mit Text, 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. |
|
| |
| |
| |
|
|
Peter
Max
Müller | Hallo,
Versuch mal @Chr$(13)+@Chr$(10) statt
und @Chr$(9) stat .
Wegen dem Font mal nen Minimalbeispiel posten.
Gruß
P.M.M |
|
| |
| |
| |
|
|
Christof
Neuß | Ich hab das jetzt mal so gelöst.
KompilierenMarkierenSeparieren
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 für das Richedit-Control.
Danke und Gruß |
|
| |
| |
| |
|
|
Thomas
Freier | Versuch einmal:
KompilierenMarkierenSeparieren
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), ))
ENDPROC
|
|
| |
| |
| |
|
(1.111)
Deutsch
English
Français
Español
Italia