Das gehört ins Builder-Subforum, wirst also gleich verschoben.

Der Code richtet sich natürlich danach, aus was für Datenelementen dein Editor besteht, und da du das nicht gesagt hast weilches du benutzt kann ich nur allgemein sagen, schau dich zu diesen Stichworten in der BCB-Hilfe um : TRichEdit::Print, TPrinter.

bis bald
akari

Damit meine ich die Komponente, die deinen Text in dem Form anzeigt. Ich vermute einfach mal es ist ein TRichEdit?

bis bald
akari

Da hast du auch beispiele die das erklären!

Im Zweifelsfall bitte auch folgende Hinweise beachten:
C/C++ Forum :: FAQ - Sonstiges :: Wohin mit meiner Frage?

Dieses Posting wurde automatisch erzeugt.

Könnt ihr ihn mir bitte geben???
Es ist dringend!

wieso schaust nicht einfach in die hilfe von bcb? wie oben gesagt wird hast du da codebeispiele.

das dialogfenster öffnest mit excecute, dann mußt nur noch sagen was er drucken soll.

und wenn dir alles vorgekaut wird, dann lernst es nie.

procedure TForm1.Button1Click(Sender:TObject);

var
  I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then
  begin
  { Druckbereich festlegen }
  with PrintDialog1 do 
  begin
    if PrintRange = prAllPages then
      begin

      Start := MinPage - 1;
      Stop := MaxPage - 1;
      end
    else if PrintRange = prSelection then
      begin
      Start := PageControl1.ActivePage.PageIndex;
      Stop := Start;
      end
    else  { PrintRange = prPageNums }
      begin
      Start := FromPage - 1;
      Stop := ToPage - 1;
      end;
  end;
  { jetzt den gewünschten Bereich drucken }
  with Printer do

    begin
    BeginDoc;
    for I := Start to Stop do
      begin
      PageControl1.Pages[I].PaintTo(Handle, 10, 10);
      if I <> Stop then
        NewPage;
      end;
    EndDoc;
    end;
  end;
end;

void __fastcall TForm1::Button1Click(TObject *Sender)

{
  PrintDialog1->Options.Clear();
  PrintDialog1->Options << poPageNums << poSelection;
  PrintDialog1->FromPage = 1;
  PrintDialog1->MinPage = 1;
  PrintDialog1->ToPage = PageControl1->PageCount;
  PrintDialog1->MaxPage = PageControl1->PageCount;
  if (PrintDialog1->Execute())
  {
    int Start, Stop;
    // Vom Benutzer gewünschten Druckbereich ermitteln
    switch (PrintDialog1->PrintRange)
    {
      case prSelection:

        Start = PageControl1->ActivePage->PageIndex;
        Stop = Start;
        break;
      case prPageNums:
        Start = PrintDialog1->FromPage - 1;
        Stop =  PrintDialog1->ToPage - 1;
        break;
      default:  // prAllPages
        Start = PrintDialog1->MinPage - 1;
        Stop = PrintDialog1->MaxPage - 1;
        break;
    }
    // Seiten drucken
    Printer()->BeginDoc();
    for (int i = Start; i <= Stop; i++)

    {
      PageControl1->Pages[i]->PaintTo(Printer()->Handle, 10, 10);
      if (i != Stop)
        Printer()->NewPage();
    }
    Printer()->EndDoc();
  }
}

1. procedure wird immer angestrichen
2. wie füge ich diesen button1klick ein?

1. procedure wird immer angestrichen

Und das heißt in Detail? Merke : Nur für präziße Fragen gibt es präzise Antworten.

2. wie füge ich diesen button1klick ein?

Über den Objektinspektor. Gehört zu den Builder-Grundlagen...

Der Code ist übrigens in Delphi, und müßte auch erstmal übersetzt werden.

bis bald
akari

Was spricht gegen den Code von meinem Link?

Was kann dort verbessert werden?