imprimer une interface TForm

salut a tous;
je programme avec c++builder6, je voudrez imprimer l'interface de TForm
voila le code que j'ai fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

void __fastcall TForm4::imp1Click(TObject *Sender)   {     Form4->Width = 1000; Form4->Height = 7800;     Form4->Font->Size = 10;   if (PrintDialog1->Execute())   Form4->Print();   }

---

sur le coté width j'ai pas de probleme. mais sur le coté height ca pose probleme ca bloque sur 7800 y a pas plus. quand je lance l'impression sur une page A4 l'interface est coupé et il reste du vide sur la page . aidez moi svp merci

Salut bicha_27
Un lien sur deux tuto sur l'impression

Citation:

---

http://jp-blondelle.developpez.com/

---

En même temps 1000 x 7800 ça ne fait qu'une bande verticale sur ta page !
Si tu as un écran en 1024 x 768 imprimé en 600dpi A4 (environ 5000 x 7000) joue avec PrintScale

Avec TForm.Print il va "étendre" ta fenêtre en conservant ses proportions sans que tu aies besoin de le faire toi même en fonction de la propriété PrintScale

Sinon, tu peux utiliser PaintTo dans un TBitmap puis c'est ce dernier que tu dessine en Strech sur le Canvas du TPrinter

Test ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

void __fastcall TVCLManipForm::BtnDrawingToPrinterClick(TObject *Sender) { if ((ComboBoxDrawingPrinters->Items->Count > 0) && (ComboBoxDrawingPrinters->ItemIndex >= 0)) { Printer()->PrinterIndex = ComboBoxDrawingPrinters->ItemIndex; Printer()->Orientation = poLandscape; LabelDrawingPrinterInfo->Caption = String().sprintf(_T("Height %d, Width %d"), Printer()->PageHeight, Printer()->PageWidth);   this->PrintScale = poNone; this->Print(); // Cela prend même pas 5% de la Page comme PaintTo   this->PrintScale = poProportional; this->Print(); // Cela prend environ 80% de la Page, avec une résolution parfaite   this->PrintScale = poPrintToFit; this->Print(); // Cela prend 98% de la Page, et ça bave à cause du Stretch   Printer()->BeginDoc(); this->PaintTo(Printer()->Canvas, 0, 0); Printer()->EndDoc(); } }

---