Memo drucken

[Akut-Programming]

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]

[Niels]

Hi!

Hier gings auch um das Drucken eines Memos, ich hoffe es hilft dir weiter.

DP: Drucken eines Textes von einer TMemo


Niels

[s14]

Deine TStringList wird nicht richtig erzeugt :thuimb:

Entweder

Delphi-Quellcode:

List4Print := TStringList.Create;
with List4Print do

oder direkt, ohne Variable

Delphi-Quellcode:

with TStringList.Create

Gruß
s14

[Akut-Programming]

Thx ihr zwein für die Hilfe!! :thuimb:

[EDIT] Habs gard mal eingebaut - Funzt prima! THX :bounce1: [/EDIT]