cs_sim51
Messages postés240Date d'inscriptiondimanche 31 octobre 2004StatutMembreDernière intervention31 décembre 20062 11 janv. 2005 à 11:20
Merci Jmp77, mais pour le premier lien, il requière l'utilisation de quickreport, ce qui n'est pas adequate pour ce que je veux faire, c'est à dire simplement imprimer une image et rien d'autre. Tandis que le second lien, j'ai même pas cherché a regarder vu que c'est dans un prog.
Cependant j'ai trouvé !!!
Il existe une unité print sur Delphi très pratique ( j'en découvre tout les jours sur delphi :p )et voilà le code de ma procedure imprimer :
uses print;
procedure TForm1.Imprimer1Click(Sender: TObject);
var
Myrect:Trect;
begin
Myrect:=rect(40,40,4000,4000);
printer.BeginDoc;
printer.Canvas.StretchDraw(Myrect,bmp.Picture.Bitmap);
printer.EndDoc
end;