Mehrere TMemo drucken!

[smart]

Wie kann man mehrere TMemo's in einem Rutsch ausdrucken? Ich habe Memo1.Text bis Meno12.Text und möchte alle gemeinsam drucken.

[Klaus01]

vielleicht alle Memofelder in eine Stringlist übertragen
und diese dann ausdrucken.

Quasi eine eigene Druckqueue bauen.

Grüße
Klaus

[smart]

Zitat:

Zitat von Klaus01

vielleicht alle Memofelder in eine Stringlist übertragen
und diese dann ausdrucken.

Quasi eine eigene Druckqueue bauen.

Grüße
Klaus

Danke für die Antwort. Ich hatte noch vergessen zu schreiben, dass jedes TMemo auf eine einzelne Seite ausgedruckt werden soll.

Gruß
Heike

[Klaus01]

mal aus der Hilfe für TPrinter zusammengeschustert.
Wenn Du die Memo in einer Stringlist zusammenführst, dann
kannst Du ja zwischen zwei Memofeldern ein Zeile einfügen
z.b. mit diesem Inhalt: '<----new Page ---->'

Könnte einen Ansatz bieten.

Grüße
Klaus

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 StringList.Count -1 do
        begin
           if stringlist.strings[i] = '<----new Page ---->' then
            { begin
               EndDoc;         //macht einen Seitenvorschub 
               BeginDoc;
             end
             }
             NewPage     { seitenvorschub, danke xaromz }
           else
             Canvas.TextOut(200,200 + (i *Canvas.TextHeight(StringList.Strings[i])),StringList.Strings[i]);
        end;
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;

end;

[edit] manchmal sieht man den Wald vor lauter Bäumen nicht [/edit]

[smart]

Zitat:

Zitat von Klaus01

mal aus der Hilfe für TPrinter zusammengeschustert.
Wenn Du die Memo in einer Stringlist zusammenführst, dann
kannst Du ja zwischen zwei Memofeldern ein Zeile einfügen
z.b. mit diesem Inhalt: '<----new Page ---->'

Könnte einen Ansatz bieten.

Grüße
Klaus

Vielen Dank, Klaus. Das ist ne gute Idee.

[xaromz]

Hallo,

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

EndDoc;        { macht einen Seitenvorschub }
BeginDoc;

Wie wär's mit

Delphi-Quellcode:

Printer.NewPage;

?

Gruß
xaromz