Discussion :

[akabane]

Bonjour,

Pour un projet je dois imprimer le contenu d'une form (cette form contient elle même des TMemo et TEdit).

J'arrive à bien l'imprimer à la taille et mise en page voulue (en utilisant GetFormImage puis ensuite Printer.Canvas.StretchDraw) mais le problème est que la qualité d'impression est assez décévente. En effet les polices on un effet d'escalier assez prononcé.

J'ai réussi à identifier la source du problème qui vient de GetFormImage qui fournit un TBitmap de mauvaise qualité.

Existe-t-il d'autres méthodes pour imprimer une form en fournissant une impression de meilleure qualité ?

[LadyWasky]

Non, il n'y a pas et GetFormImage te donne la meilleure image que tu puisses avoir (résolution en X et en Y de ton image = taille de ta fiche).

En effet, ta fiche fait admettons 640x480

Le Canvas de ton imprimante (qui dépend de sa résolution) en fait admettons 3600x2800 (c'est fictif mais c'est l'ordre de garandeur qui compte...)

Donc en gros, un pixel de ta fiche sera "étalé" sur un carré de 60x60 pixels de ton imprimante. Sachant que si tu est en 600dpi, un pixel de ta fiche fera (toujours à la louche ), 25mm de cotés !

Bref, c'est normal.

Ce que tu peux toujours essayer de faire via la méthode "PainTo(DC:HDC)" de ta fiche, c'est de faire dessiner ta fiche sur un TMetaFile puis de copier le dit TMetafile sur le canvas de ton imprimante.

Comme Le TMetaFile représente ses données sous forme vectorielle, tu devrais te retrouver avec une qualité d'image nettement accrue lors du StrechDraw :

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
 
begin
  MonMetafile :=TMetafile.Create;
  try  MonMetaFileCanvas:=TMetafileCanvas.Create(MyMetafile,Form1.Canvas.Handle); 
  try
    Form1.PaintTo(MonMetaFileCanvas.handle);
  finally
    MonMetaFileCanvas.Free;
  end;
finally
    MonMetaFile.Free;
end;
Printer.BeginDoc;
...
Printer.Canvas.StretchDraw(Rect(0,0,Printer.pageWidth,Printer.pageHeight),MonMetaFile);
...
Printer.EndDoc;

Voilà le principe...

[akabane]

Merci pour ta réponse, j'ai utilisé cette méthode ça pixelise carrément moins