Wenn ich folgenden Inhalt eines SynEdits drucke:
Code:
<table class="formarea" width="100%" cellpadding="0" cellspacing="0">
<form name="post" action="{SHOUTBOX_ACTION}" method="POST" target="ekran" autocomplete=off onsubmit="submitonce()">
<tr>
<td class="row1" align="center" valign="bottom" nowrap><span class="gensmall">
<input type="hidden" name="name" value="{NICK}">
<input type="hidden" name="sb_user_id" value="{SB_USER_ID}">
{L_GG_MES}: <input type="text" name="message" style="height:15px" size="18" " value="" class="post">
<input type="hidden" name="msg" value="">
<input type="hidden" name="mode" value="submit">
<input type="submit" name="submit_button" value="{L_SEND}" style="font-size:9px; height:16px;" class="button"></span>
</td>
</form>
</tr>
</table>
Kommt beim Drucken (über FreePDF, habe keinen funktionsfähigen Drucker hier, sollte aber gleich sein) das heraus, was im Anhang zu sehen ist.
Gedruckt wird so:
Delphi-Quellcode:
if PrintDialog1.Execute then
begin
Ini := TIniFile.Create(AppPath + 'settings.ini');
try
SynEditPrint1.Lines := SynEdit1.Lines;
SynEditPrint1.Wrap := true;
SynEditPrint1.Highlight := Ini.ReadBool('printer', 'highlighing', true);
SynEditPrint1.LineNumbers := Ini.ReadBool('printer', 'linenumbers', true);
SynEditPrint1.Colors := Ini.ReadBool('printer', 'colors', true);
SynEditPrint1.DocTitle := OpenFileName;
SynEditPrint1.Print;
finally
FreeAndNil(Ini);
end;
end;
Auch, wenn alles auf
true steht, wird da nichts formatiert oder farblich hervorgehoben. Alles ist so ineinander verschoben. Die Beiträge, die hier zu finden sind, behandeln alle andere Probleme. Wie druckt man denn korrekt?