Discussion :

[shinji18]

Bonjour tout le monde,
j'ai un petit soucis pour imprimer un TChart.

Je fais un programme pour une association qui souhaite imprimer des courbes.
J'ai tenter de suivre le tuto de jp-blondelle mais je me suis mélangé les pinceaux.

Dans un premier temps, j'ai réussi à obtenir une mauvaise impression en pdf mais dès que je l'envoyais sur une imprimante physique, j'avais droit à l'écran bleu et redémarrage de windows.

Maintenant, je n'ai plus ce problème, mais je n'ai que des pages blanches.

Où est le problème? qu'est ce que le font?
Pouvez vous m'aider svp?

merci d'avance pour vos réponses

voici le code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
LOGFONT lgfont;
	Printer()->Orientation = poLandscape;
	// Récupération des détails de la fonte dans la structure LogFont
	GetObject(Chart1->Canvas->Font->Handle, sizeof(LOGFONT), &lgfont);
 
/*	// Lister les imprimantes installées
	ComboBox1->Items = Printer()->Printers;
 
	// Definir l'imprimante par defaut
	Printer()->PrinterIndex = ComboBox1->ItemIndex;*/
 
 
	// Démarrage de l'impression
	Printer()->BeginDoc();
 
	// Tracé de la zone imprimable
	TRect r = Rect(74, 74,Printer()->PageWidth-74, Printer()->PageHeight-74);
	//Augmentons la taille de la fonte pour une meilleure visibilité
	Printer()->Canvas->Font->Size = 12;
 
 
 
	//L'impression d'un composant visuel (TForm, TDBGrid, TImage, etc ..) passe par l'obtention d'un Hdc sur ce composant avec l'API GetDC.
	HWND hdc;
 
	// Obtention d'un handle de device context sur l'écran
	hdc = GetDC( NULL );
	hdc = Chart1->Canvas->Handle;
	r = Chart1->ClientRect;
 
 
 
	// On utilise StretchBlt pour redimensionner la source à la taille de la destination
	StretchBlt(Printer()->Canvas->Handle, 74, 74, Printer()->PageWidth-74, Printer()->PageHeight-74, hdc, 0, 0, Screen->Width, Screen->Height,  SRCCOPY);
	//Chart1->Print();
	//PrinterSetupDialog1->Execute();
 
	//Envoi des commandes à l'imprimante
	Printer()->EndDoc();
	//ne pas oublier de relacher le hdc
	ReleaseDC(Handle, hdc);
}

[shinji18]

Merci 3DArchi,
c'est mon premier message et je ne connaissais pas les balises ni ou mettre mon message.
c'est "code" "/code" entre [] c'est ca?

[cedni]

Salut , enregistres ton canvas dans un bitmap et imprimes le
Non ?

C est ce bouton :

[shinji18]

Merci Cedni pour ta réponse.
En effet j'avais vu cette solution, mais comme je redimensionnes le TChart pour qu'il remplisse la page, j'avais un doute.
Ca fonctionnerais ainsi?