Impression d'un TChart (graphique)

Version imprimable

Bien le bonjour à tous.

J'expose mon problème :

1) Je voudrais imprimer un TChart, cependant l'impression fonctionne mais celle-ci me sort une toute petite image...
2) Est-il possible d'étirer l'image pour pouvoir tenir dans une feuille au format A4 ?
3) Est-il possible de tourner l'image à 90° car print->Orientation = poLandscape ne fonctionne pas.

Enfin voici le code de la fonction impression :
Code:

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 void __fastcall TFImprimer::ButtonImprimerClick(TObject *Sender) { PrintDialog1->Options.Clear(); print->Title = "12.07.07"; if (PrintDialog1->Execute()) { // imprime les pages print->BeginDoc(); if(CheckTemperature->Checked) { FConsulterRapport->GraphPression->PaintTo(print->Handle, 10, 10); print->NewPage(); } if(CheckPression->Checked) { FConsulterRapport->GraphPression->PaintTo(print->Handle, 10, 10); print->NewPage(); } if(CheckVide->Checked) { FConsulterRapport->GraphVide->PaintTo(print->Handle, 10, 10); } print->EndDoc(); } }
Merci de vos réponses ^_^

Ci dessous un exemple pour imprimer sur une page les quatres graphes présents sur une fiche:

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
  int h,w;
	Screen->Cursor = crHourGlass; // <-- nice detail }
	PrinterSetupDialog1->Execute();
	try {
  	Printer()->BeginDoc();       // <-- start printer job
    try {
      // now print some text on Printer()->canvas
      Printer()->Canvas->Font->Name = "Arial";
      Printer()->Canvas->Font->Size = 10;             // <-- set the font size
      Printer()->Canvas->Font->Style.Clear();
			Printer()->Canvas->TextOut(60,60,"NetWork Guardian");   // <-- print some text
 
      h = Printer()->PageHeight; // <-- get page height
      w = Printer()->PageWidth;  // <-- get page width
 
      // And now print the chart component
			/*DBChart1->PrintPartial( Rect(
				w / 5,          // <-- 20% left margin
				h / 3 ,         // <-- 33% top margin
				w - (w / 5),    // <-- 20% right margin
				h - (h / 5)));  // <-- 20% bottom margin
			*/
 
			DBChart1->PrintPartial( Rect(
				w/15 ,
				h/5,
				w-(w/15),
				h/25));
			DBChart2->PrintPartial( Rect(
				w/15 ,
				(h/5)*2,
				w-(w/15),
				h/5 + h/25));
			DBChart3->PrintPartial( Rect(
				w/15 ,
				(h/5)*3,
				w-(w/15),
				2*(h/5) + (h/25)));
			DBChart4->PrintPartial( Rect(
				w/15 ,
				(h/5)*4,
				w-(w/15),
				3*(h/5) + (h/25)));
 
 
      // print more text
      Printer()->Canvas->Font->Name = "Arial";
      Printer()->Canvas->Font->Size = 12;             // <-- set the font size
      Printer()->Canvas->Font->Style = TFontStyles() << fsItalic;
      Printer()->Canvas->TextOut(60,120,Now());   // <-- Date and time
 
			Printer()->EndDoc(); // <-- end job and print !!
    }
    catch (...) {
      // just in case an error happens
      Printer()->Abort();
      Printer()->EndDoc();
      throw;       // <-- rethrow the exception !!!
    }
  }
  __finally {
    Screen->Cursor = crDefault; // <-- restore cursor
  }

03/04/2007, 15h04
Terryio

Ok je vais tenter de m'en inspirer...
05/04/2007, 11h02
Terryio

Pour l'impression cela fonctionne cependant je n'ai pas encore trouvé de solution à ma troisième question...
En fait, il faut à la fois imprimer les graphes en orientation paysage et une page de texte en orientation portrait.

C'est pour cela que je cherche encore quelle solution utilisé et comment la faire :

--> Soit trouver une méthode pour différencier les deux sortes d'impression
--> Soit tout imprimer en paysage en tournant le texte à 90° (texte dans un RichEdit => possiblilité de changement)
--> Soit tout imprimer en portrait en tournant les graphes cette fois-ci.
05/04/2007, 11h09
Fbartolo

as tu essayé de réaliser deux impressions:
la première en positionnant ton imprimante d'abord en paysage puis impression.
la deuxième en la positionnant en portrait puis impression ??
05/04/2007, 12h25
Terryio

En effet, il me le faut en un seul fichier c'est là le problème...
Ou à ce moment y a-t-il un moyen pour empêcher quiconque d'imprimer entre ces deux impressions ?
05/04/2007, 12h49
Fbartolo

as tu essayé d'introduire l'aurientations:

Code:

Printer()->Orientation = (poPortrait OU poLandscape)
05/04/2007, 13h46
Terryio

Cela ne fonctionne pas pendant l'impression. Le changement d'orientation est interdit.