Drucken aus einem RichEdit (dynamisch auf TabSheet erzeugt)

[Joergie]

hallo,
ich erzeuge ein Richedit auf einem TabSheet

Delphi-Quellcode:

  i:= PCOutput.Tag;
  PCOutput.Tag := PCOutput.Tag + 1;
  MyTabSheet := TTabSheet.Create(PCOutput);
  MyTabSheet.Parent := PCOutput;
  MyTabSheet.Name := 'TabSheet'+InttoStr(i);
  MyTabSheet.Visible := true;
  MyTabSheet.PageControl := PCOutput;
  MyTabSheet.Caption:= 'Rechnung '+IntToStr(i+1);
  MyOutput := TRichEdit.Create(MyTabSheet);
  MyOutput.Parent := MyTabSheet;
  MyOutput.Align := alClient;

ich kann die letzte Rechnung drucken

Delphi-Quellcode:

procedure TForm1.PrintClick(Sender: TObject);
begin
  if PrintDialog1.Execute then
  begin
    MyOutput.Print(Caption);
  end;
end;

hat jemand erfahrung, wie ich
1. ein RichEdit von einem TabSheet drucke, welches nicht das aktuelle ist
2. aus allen vorhanden RichEdits drucke

Danke

[Joergie]

Kennt sich niemand damit aus?

[Matze]

Bitte erst nach frühestens 24 Stunden pushen. :dp:

Wenn das RichEdit auf dem deaktivierten TabSheet einen anderen Namen hat, kannst du es doch ganz normal aufrufen. :gruebel: