Hallo, ich habe auf meinem Delphi Formular 2 Memo Boxen, den Inhalt dieser Memos möchte ich drucken lassen, sobald mal einen bestimmten Button klickt.
Problem: Dieser Code ermöglicht es eine Memo drucken zu lassen und zwar "Memo1".
Frage: Wie bekomm ich jetzt hin, dass im Ausdruck der Inhalt der Memo2 direkt unter dem der Memo1 steht!? Dazwischen 4-5 x [Enter], dann aber der 2 Text....
versteht ihr wie ich meine!?
Wie muss der Code dafür aussehen!? Über Antwort würde ich mich sehr freuen. Vielen Dank!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
Memo1.Lines.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;