Hi! Also ich will n Memo drucken, welches vorher mit ner zur Laufzeit erstellten StringList gefüllt wurde. Hatte schon hier in der
DP gesucht, nur hab ich wat übers drucken eines RichEdits - was ja eigentlich nicht wollte. Trotzdem versuchte ich es mal, doch bekam ich n Fehler..
Delphi-Quellcode:
procedure Tfrm_terminplaner.Image3Click(Sender: TObject);
begin
PrintList;
end; // Hier kommt der Fehler
Hier die Prozedur die aufgerufen wird:
Delphi-Quellcode:
procedure PrintList;
const
delim = #9;
var
i, j: Integer;
li: TListItem;
List4Print: TStringList;
...
begin
if frm_main.dlg_printlist.Execute
then begin
List4Print.Create;
// Einträge in StringList einlesen
with List4Print do begin
for i := 0 to frm_main.lv_eintraege.Items.Count-1 do
begin
s := frm_main.lv_eintraege.Items[i].Caption + delim ;
for j := 0 to frm_main.lv_eintraege.Items[i].SubItems.Count-3 do
s := s + frm_main.lv_eintraege.Items[i].SubItems[j] + delim;
Add(s);
end;
frm_terminplaner.RichEdit1.Lines.Assign(List4Print);
frm_terminplaner.RichEdit1.Print('');
Free;
end;
end;
end;
[edit=Daniel B]Doppelpost gelöscht. Mfg, Daniel B[/edit]