Drucken zum x-ten male

DG2003

Hi,

ich bin absoluter BCB Frischling und habe mich bis jetzt ganz gut durch mein Programm gewurschtelt. Jetzt komme ich aber nicht weiter. BCB-Hilfe und verschiedene FAQs konnten mir nicht weiter helfen. Ich bekam schon den Tip es mit Quickreport zu probieren, habe aber damit noch nicht gearbeitet.

Wer kann mir weiter helfen?

Vielen Dank im Voraus

/*
 Hier werden auf Knopfdruck Grafiken erstellt,
 Rechenergebnisse dargestellt, dynamisch Buttons
 erzeugt um weitere Berechnungen zu starten und
 auf dem Canvas darzustellen etc....
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Canvas->FillRect(Rect(0,0,240,240));
          			// Image 1 löschen
  Image1->Canvas->Rectangle(5, 5, 30, 30);
  				// Grafik erstellen
  // es folgen oben beschriebene Berechnungen
}

/*
 Hier soll auf Knopfdruck die zuvor auf Image1 erstellte
 Grafik mit den Rechenergebnissen auf einen Drucker
 ausgegeben werden.
 Die folgenden Zeilen sind aus der BCB-Hilfe, helfen mir
 aber nicht weiter.
 Wie bekomme ich Image1->Canvas auf Prntr->Canvas???
*/
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TPrinter *Prntr = Printer();
  TRect r = Rect(200,200,Prntr->PageWidth - 200,Prntr->PageHeight- 200);
  Prntr->BeginDoc();
  for( int i = 0; i < Memo1->Lines->Count; i++)
      Prntr->Canvas->TextOut(200,200 +
                   (i * Prntr->Canvas->TextHeight(Memo1->Lines->Strings[i])),
                    Memo1->Lines->Strings[i]);
  Prntr->Canvas->Brush->Color = clBlack;
  Prntr->Canvas->FrameRect(r);
  Prntr->EndDoc();
}

Edit:
Bitte die Code-Tags benutzen. Danke!

Versuch mal: Form1->Print();

Gruß Steve_N

VergissEs

Hallo,

hast du dir schon mal CopyRect angeschaut ?

MfG
VergissEs

Hi VergissEs,

vergiss es.

VergissEs

Gut,

Wer nicht will der hat schon!

DG2003

Steve_N schrieb:

Versuch mal: Form1->Print();

Gruß Steve_N

Hi Steve_N,

danke für den Tip, hatte ich schon probiert. Der Druckauftrag wird abgeschickt und verliert sich im Nirvana. Danach muß ich neu booten um wieder drucken zu können. Es geht nichts mehr, selbst keine Drucker-Testseite.

DG2003

VergissEs schrieb:

Hallo,

hast du dir schon mal CopyRect angeschaut ?

MfG
VergissEs

Hi,

Tschuldige, daß ich erst jetzt wieder online bin. Danke für den Tip. Mit CopyRect experimentiere ich gerade, bin aber noch zu keinem Ergebnis gekommen.

Gruß DG2003