Mehrere Memo´s auf einem Blatt drucken.

[N30N]

Delphi-Quellcode:

var
  Zeile: Integer;
  PrintText: TextFile;
begin
  Printer.Canvas.Font.size :=15;
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  for Zeile := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, Memo1.Lines[Zeile]);

  for Zeile := 0 to Memo2.Lines.Count - 1 do
  Writeln(PrintText, Memo2.Lines[Zeile]);

  CloseFile(PrintText);
end;

Hmmm, also Printer.Canvas.Font.size :=15; habe ich eingefügt, allerdings bringt das garnix beim Ausdruck. Hab ich es vielleicht an die falsche Stelle gesetzt? Hatte es auch schonmmal vor Closefile(Printtext); stehen, allerdings hat sich auf dem Ausdruck auch nichts geändert. Es bleibt bei Schriftgröße 8

Zitat:

Parallele Spalten drucken ist einfach, wenn du mit mono-spaced fonts (z.B. Courier) arbeitest. Es genügt dann, wenn du den Text der linken Spalte mit Leerzeichen auffüllst. Ansonsten wird es etwas komplizierter.

Mir isses relativ wurscht welchen Font ich benutze ^^ Hauptsache ich kann den Inhalt von Memo1 und den Inhalt von Memo2 nebeneinader darstellen. Am besten wäre es ja, Memo1 linksbündig zu machen, und Memo2 rechtsbündig zu machen. Aber wie?? Ich hab keinen Plan