Je veux imprimer en Milimiter

Question

Salut mes Amis

Je veux imprimer  une image avec cette fonction
Mais Je reçois la largeur 80 mm et pas 100 mm

la largeur est de 100 mm corect
Si je imprimer l'image bitmap avec un autre programme si je reçois 100 mm
mais avec mon programme Delphi je reçois 80 mm pour la largeur


merci

 	
...ein TImage ausdrucken?
Autor: Dirk B&#65533;gelspacher
Homepage: http://www.boegi.de
[ Tip ausdrucken ]	 	 

Tip Bewertung (16): 	 
     


{1.}

uses
  Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;
    // Mit BeginDoc wird ein Druckauftrag initiiert.
    // The StartDoc function starts a print job.
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      // Informationen über die Auflösung
      // Retrieves information about the Pixels per Inch of the Printer.
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
      // An die Auflösung anpassen
      // Stretch to fit

    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
      // Textdatei-Variable.
      // Steht in finally - um auch bei Abbruch des Druckauftrages Papierausgabe
      // sicherzustellen
    end;
  end;
end;



Source d origine ici

cs_MAURICIO · Answer

Salut, 

il y aura toujours le problème de la résolution de l' image ... 

Je ne peux que te conseiller les compos imageEn qui sont gratuits et c' est ici: 
http://www.hicomponents.com/main/

Fait un effort de Français car on a du mal à comprendre tes questions! 

A+

Composants Cindy pour Delphi

Bacterius · Answer

Ou sinon, tu lis les API et tu le fais toi-même à partir de la doc, plutôt que de t'appuyer sur un composant déjà tout cuit pour toi. Ca donne des connaissances de bas niveau en plus et c'est désirable. Mais je dois venir d'un autre monde, non ?

Cordialement, Bacterius !

Caribensila · Answer

Déjà qu'il faut parfois quand même mâcher les trucs tout cuit !.. 
Mais, perso, y'a une limite où je ne suis plus d'accord pour suivre le bol alimentaire (surtout au bas niveau). 

Bien sûr que tu viens d'un autre monde, Bacterius.
   
Ici-bas, c'est un monde où on se fout de comprendre le pourquoi du comment puisque de nos jours même les opinions se font en prêt-à-porter; t'as qu'à voir !
 

_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr

sarssor · Answer

Hi

merci pour les Links mais je voudrais savoir mon probleme 
j ai fait un Test :


Edit1.Text:=FloatToStr(Round(Image1.Picture.Bitmap.Width * 25.43/ Screen.PixelsPerInch)); // inch to mm

J'obtiens 100
c' est juste
Mais Après l'impression, je reçois 80 mm sur Papier !

sarssor · Answer

salut !

cs_Michel34 · Answer

Essaie ce lien :  http://alphomega.developpez.com/imprimer/?page=page_1

Cordialement .

A+ Michel

Je veux imprimer en Milimiter

6 réponses

Votre réponse

Discussions similaires