Discussion :

[seiken02]

Bonjour,

J'essaie d'imprimer le contenu d'un mémo.
J'utilise le code suivant:

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
 
if (MessageBox (NULL, "Voulez-vous vraiment imprimer ?", "Print",MB_YESNO) == IDYES)
	{
	int FontHeight, LinesOnPage;
	TCanvas *pcanvas;
	Printer()->BeginDoc();
	pcanvas = Printer()->Canvas;
	FontHeight = pcanvas->Font->Height;
	LinesOnPage = Printer()->PageHeight / -FontHeight;
	for (int i = 0, j = 0; i < Memo1->Lines->Count; i++, j++)
	{
		if ((i > 1) && (i % LinesOnPage == 0))
 
		{
			j = 0;
			Printer()->NewPage();
		}
	pcanvas->TextOut (10, ((j * -FontHeight) + 10),Memo1->Lines->Text]);
 
	Printer()->EndDoc();
 
 
	}
    }

Mais à la sortie je récupère quelque chose du genre:

aaaaaaaaa bbbbbbbbb ccccccccc dddddddddddd

alors que ca devait etre comme dans le memo:
aaaaaaaaaaaaa
bbbbbbbbbbbbb
ccccccccccccc

Avez vous une solution svp?

Merci par avance.

[henderson]

Salut !

Je pense que ça ne fonctionne pas ... à dessein !
En effet, je doute qu'en arrière plan, TCanvas sache gérer le wordwrap.
TMemo par contre sait le faire mais uniquement pour lui-même (puisque c'est une de ses propriétés).
Donc, imprimer ligne par ligne nécessitera du code supplémentaire.

Par contre, fais un tour dans l'aide : TWinControl et sa méthode PaintTo.
Il y a un exemple pour dessiner le contenu graphique d'un TMemo mais dans le contexte bitmap -> imprimante.
En matière de texte, le résultat obtenu pourrait ne pas être optimal !

Il existe une autre possibilité en utilisant les composants dédiés à ce type de traitement : voir la palettte des composants QReport.
C'est fait pour !

A plus !

[Crayon]

En effet, je doute qu'en arrière plan, TCanvas sache gérer le wordwrap.

À la place d'utiliser pcanvas->TextOut, il faut utiliser pcanvas->TextRect.
Pour le troisième paramètre, tu peux mettre quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Graphics::TTextFormat() << tfWordBreak << tfNoPrefix << tfNoClip

Pour avoir la liste complète des TTextFormat va sur http://docwiki.embarcadero.com/VCL/f...s.TTextFormats
Pour les descriptions il est préférable d'aller sur le site de Microsoft: http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

[yarp]

Sinon, il y a aussi l'excellent tutoriel de Blondelle sur ce site:
http://jp-blondelle.developpez.com/t...?page=sommaire
qui détaille l'impression sans composant (juste TPrinter). Donc ça demande un peu de programmation.
Mais c'est facile d'imprimer du texte en suivant le tutorial.
Il suffira de lire le TMemo ligne a ligne (methode Lines).

Yarp