Impression d'une image bitmap sous Delphi

Bonsoir à tous,

Voici le code que j'ai tapé pour imprimer une image BitMap sur mon application :

Code:

---

1 2 3 4 5 6

with Printer do begin BeginDoc; Canvas.Draw(0,0, Solution.Picture.Graphic); EndDoc; end;

---

L'impression se fait mais la taille de mon image est minuscule, à peine visible.

Pourriez-vous me dire ce que je dois modifier pour que l'image imprimée ait la même taille que celle affichée à l'écran ? Je vous en remercie par avance.

Vous souhaitant une bonne fin de soirée

Laurent

Code:

---

1 2 3 4 5 6 7 8 9 10

with printer do if printdialog1.execute then begin bmp.width:=pagewith; bmp.height:=round(bmp.height*pagewidth/bmp.width); //si tu as dessiné dans le bmp.canvas, tu redessines avec les nouvelles dims dessiner;// (par exemple); canvas.draw(0,0,bmp);// ( si image: image1.picture.bitmap par ex) //on copie bmp dans le canvas du printer Enddoc; bmp.redim(taillex,tailley);//.....pour rétablir la taille à l'affichage. dessiner;//...réafficher aux bonnes dims end;

---

là au moins tu auras une impression en gardant les proportions sur la largeur de la page

Tu peux utiliser StretchDraw pour agrandir ton image.

Mais tu dois contrôler la résolution de ton imprimante pour la calculation du facteur de zoom avec GetDeviceCaps.

Faire un Draw d'une image qui fait 600px de large sur une imprimante ayant une résolution de 600dpi fera que ton image imprimée aura 1 pouce de large. Sur une imprimante en 1200dpi, 1/2 pouce, etc. ;)

Bonsoir

Je vous remercie pour vos réponses mais en fait l'image en question ne rentre pas dans tout l'écran. Je souhaiterais donc pouvoir l'imprimer sur plusieurs page en une seule manipulation. POur l'instant, je n'ai qu'une page et son contenu est étiré verticalement.

Voyez-vous ce qui ne va pas ?

En vous remerciant par avance, je vous souhaite une bonne soirée.

Cordialement

Laurent

pour faire simple, ça, ça devrait marcher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.FormCreate(Sender: TObject); begin monbmp:=Tbitmap.Create; monbmp.loadfromfile('chemin.bmp'); end;   procedure TForm1.Button1Click(Sender: TObject); begin with printer do if printdialog1.Execute then begin begindoc; canvas.StretchDraw(rect(0,0,printer.PageWidth,round(1182*printer.PageWidth/1476)),monbmp); enddoc; end; end;

---

image de taille 1476 de largeur et 1182 de hauteur.

Après, tu adaptes en fonction de la dimension de ton image.

Merci pour tout, ça marche super bien.

bonne fin de week-end