Bonjours a tous et meilleurs voeux pour cette annee 2008.
Je termine une petite base de donnees et je dois imprimer les resultats, j'ai fais des recherches et je n'ai rien trouve de convainquant, mais j'ai peut etre trouve une astuce permettant d'imprimer le Canvas d'une Form avec tous ce qu'il contient, il est necessaire de veiller a conserver la proportionnalite entre le Canvas de la Form et celui de Printer, dans l'exemple suivant je ne m'en suis pas occupe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// ne pas oublier d'inclure  #include "QClipbrd.hpp" et #include "Printers.hpp"
TRect rd;
        TPrinter *Prntr = Printer();
rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
Image1->Picture->Bitmap->Assign(Form1->GetFormImage());
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Image1->Picture->Bitmap);
        Prntr->EndDoc();
}