Hallo,
das Memo kann nicht drucken! Dies musst Du selber machen.
Folgend die einfachste Variante:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure DruckeMemo(aMemo:TMemo);
var
PrnFile: TextFile;
i:integer;
begin
AssignPrn(PrnFile);
Rewrite(PrnFile);
for i:=0 to aMemo.Lines.Count-1 do Writeln(PrnFile, aMemo.Lines[i]);
System.CloseFile(PrnFile);
end; // DruckeMemo
procedure TForm1.drucken1Click(Sender: TObject);
begin
with PrintDialog1 do
if Execute then DruckeMemo(Memo1);
end; |
Eine andere Möglichkeit besteht darin, das Memo durch ein RichEdit zu ersetzten. Das RichEdit kennt eine Methode Namens Print.
_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)
Tino
