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

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

Quasi eine eigene Druckqueue bauen.

Grüße
Klaus

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

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

zusammenfalten · markieren

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]

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.

Hallo,

Zitat von Klaus01:

markieren

Delphi-Quellcode:

EndDoc; { macht einen Seitenvorschub }
BeginDoc;

Wie wär's mit
Printer.NewPage; ?

Gruß
xaromz