bonjours,
Jai regardé plusieur topic sur le forum a ce suget mais aucun na fonctionné dans mon cas.
Voila, jai une form contenant un TChart et plusieur autre objet.
Je souhaiterais limprimé, etant donné que jai plusieur form contenant a peu pré les meme info, jai créer une form qui me sert a limpresion
Voila mon code d'impression :
donc sa, sa fonctionne nikel
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 void __fastcall TForm3::BitBtn1Click(TObject *Sender) { FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM yyyy", Now()); FormImpre->Series1->Assign(Form3->Series1); FormImpre->Chart1->Title = Form3->Chart1->Title; FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now()); FormImpre->Panel2->Visible = true; FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption; FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption; FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption; FormImpre->PrintScale = poPrintToFit; FormImpre->Print(); FormImpre->Panel2->Visible = false; }
Maintenant je voudrais exporté limage de la form, exactement ce que jai imprimé, juste en metant masquant 2 label (mais sa c'est pas un prob lol)
Jai esseyé avec la fonction ImprimEcran que jai trouvé dans les sources, mais linconvéniant c'est qu'il faut que jaffiche la form, et meme parfois limage qui est généré na pas certain label :s
Jai eseyé avec un Tbitmap mais jai pas réusi
Je voudrais créer limage de la form , mais sans devoir l'affiche pff
sa fais 2h que je me casse la tete desus
Cordialement Baxter
Partager