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