| |
| |
|
Christof
Neuß | Salut,
je bestücke un Richedit avec le texte, den je avec
et quelque chose formatiere.
si je cette maintenant zeilenweise à den Drucker schicke, venons sur dem Ausdruck à den se mettre avec den Ersatzzeichen kleine Quadrate zum Vorschein.
Aussi scheint un
Usefont Courier,14,0,0,0,0
avant dem Druck pas trop marcher.
qui peux aider.
DANKE. |
|
| |
| |
| |
|
|
Peter
Max
Müller | Salut,
Versuch la fois @Chr$(13)+@Chr$(10) statt
et @Chr$(9) stat .
à cause de dem Font la fois nen Minimalbeispiel posten.
Salut
P.M.M |
|
| |
| |
| |
|
|
Christof
Neuß | nie gemacht maintenant la fois so gelöst.
KompilierenMarqueSéparation
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
qui
- et -marque volonté wohl automatisch dans Chr$(13) et Chr$(9) mise en œuvre. sommes zumindest so im String enthalten.
peux es son, dass DrawText pas avec pas-proportionalen Schriften tourner autour de peux? dans qui Bildschirmanzeige funktioniert qui Schriftart Courier, alors muss vous oui là son.
Achja, Elemente&[13] ist cela Handle pour cela Richedit-Contrôle.
merci et Salut |
|
| |
| |
| |
|
|
Thomas
Freier | Versuch einmal:
KompilierenMarqueSéparation
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), ))
Gruß Thomas
Windows XP SP2, XProfan X2 | 13.02.2009 ▲ | |
|
| |
|
(1.109)
Deutsch
English
Français
Español
Italia