Discussion :

[bicha_27]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blondelle]

Salut bicha_27
Un lien sur deux tuto sur l'impression

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

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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();
  }
}