Discussion :

[ninaleo]

Bonsoir à tous,

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

Code :

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

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

[Archimède]

Code :

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

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

[Andnotor]

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.

[ninaleo]

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

[Archimède]

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

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
 
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.

[ninaleo]

Merci pour tout, ça marche super bien.

bonne fin de week-end