1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
void ImprimerFormImpre(TForm *Form)
{
TRect rd;
TPrinter *Prntr = Printer();
rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
Graphics::TBitmap *Temp = new Graphics::TBitmap;
Temp->Assign(Form->GetFormImage());
//DESSIN DES CADRE
//Enleve le bouton Imprimé
Temp->Canvas->Brush->Color=clWhite;
Temp->Canvas->FillRect(Rect(592,444,800,600));
//Enleve le bouton Retour
Temp->Canvas->Brush->Color = clWhite;
Temp->Canvas->FillRect(Rect(8,444,185,564));
Temp->Canvas->Font->Color = clBlack;
Temp->Canvas->Font->Size = 12;
Temp->Canvas->Font->Name = "Arial";
Temp->Canvas->TextOutA(12, 468, "Visa Chef d'équipe :");
Temp->Canvas->TextOutA(12, 508, "Visa Oenologue :");
Temp->Canvas->Brush->Color = clWhite;
Temp->Canvas->TextOutA(595, 468, FormatDateTime("ddd ' le ' d MMMM yyyy", Now()));
Temp->Canvas->TextOutA(595, 508, FormatDateTime("HH : mm",Now()));
//pour eviter une page blanche ajouter la ligne suivante
Temp->PixelFormat = pf24bit; // a adapter
//TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(rd, Temp);
Prntr->EndDoc();
} |
Partager