gedruckte Grafik total verpixelt und verschwommen

[MW880729]

Hallo zusammen,

habe zwar nun geschafft, dass die Grafik gedruckt wird, was auch soweit ganz gut ist, jedoch ist die Grafik total verpixelt und verschwommen nach dem Druck. Die Bitmap datei ist allerdings in Ordnung.

Hier mal der Quellcode mit dem ich das Drucken leite:

Delphi-Quellcode:

procedure PrintImage(iLeft, iTop: integer; Img: TImage); 
var 
  GraphicRect: TRect; 
begin 
  iLeft := iLeft * 8;
  iTop := iTop * 8;
  ZeroMemory(@GraphicRect, SizeOf(GraphicRect));
  GraphicRect.Right:= Img.Picture.Graphic.Width;
  GraphicRect.Bottom:= Img.Picture.Graphic.Height;
  if Form2.PrintDialog1.Execute then
  begin
     printer.begindoc;
     printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft+ GraphicRect.Right* 10, iTop+ GraphicRect.Bottom* 10), Img.Canvas, GraphicRect);
     printer.enddoc;
  end;
end;

procedure TForm2.Button14Click(Sender: TObject);
begin
   Image1.Picture.loadfromfile(ExtractFilePath(Application.ExeName) + 'MyPic.bmp');
   PrintImage(200,20,image1);
end;

Kann mir jemand sagen, weshalb das so verpixelt und verschwommen gedruckt wird??

Danke schonmal!

Gruß,
Manu

[MW880729]

Hallo,

Hat denn niemand eine Lösung für mein Problem hier??

Würde mich freuen, wenn jemand antworten würde und das vielleicht helfen würde ...

Danke schonmal, für eure bemühungen eine Lösung zu finden.

Gruß,
Manu

[dizzy]

Da du nix besonderes im Code machst, würde ich einfach darauf tippen, dass deine Grafik zu niedrig aufgelöst ist.

[MW880729]

Zitat von dizzy:

Da du nix besonderes im Code machst, würde ich einfach darauf tippen, dass deine Grafik zu niedrig aufgelöst ist.

Habe eine 32Bit - bmp-Datei, die ich vom Originalzustand schon stark verkleinert habe .... hier aufm Bildschirm sieht das Bild auch echt gut aus ... Nur im gedruckten Zustand leider nicht ...

Gruß,
Manu

[Tormentor32]

Liegts vielleicht am Drucker? Andere ausgedruckte Bilder (bzw. mit anderen Programmen ausgedruckte) sehen normal aus?

[turboPASCAL]

Und das Verkleinern wird auch der Grund sein wieso das Bild so verwurstelt aussieht nach
dem Drucken.
Das es sich bei dem Bild um eine 32Bit -Bitmap handelt is egal, die Grösse ist wichtig.

Das Bild vergrössert du ja dann auch noch in der Printfunktion.

Code:

printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft+ GraphicRect.Right[color=#ff0000]* 10[/color], iTop+ GraphicRect.Bottom[color=#ff0000]* 10[/color]), Img.Canvas, GraphicRect);

[SirThornberry]

CopyRect stretched das Bild ohne Verwendung von Halftone. Daher auch das verpixeln.

[MW880729]

Zitat von Tormentor32:

Liegts vielleicht am Drucker? Andere ausgedruckte Bilder (bzw. mit anderen Programmen ausgedruckte) sehen normal aus?

Habe es mit verschiedenen Druckern ausprobiert. Am Drucker liegts nicht.

[MW880729]

Zitat von turboPASCAL:

Und das Verkleinern wird auch der Grund sein wieso das Bild so verwurstelt aussieht nach
dem Drucken.
Das es sich bei dem Bild um eine 32Bit -Bitmap handelt is egal, die Grösse ist wichtig.

Das Bild vergrössert du ja dann auch noch in der Printfunktion.

Code:

printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft+ GraphicRect.Right[color=#ff0000]* 10[/color], iTop+ GraphicRect.Bottom[color=#ff0000]* 10[/color]), Img.Canvas, GraphicRect);

Zitat von SirThornberry:

CopyRect stretched das Bild ohne Verwendung von Halftone. Daher auch das verpixeln.

Schätze das wird es sein, ich versuchs mal - danke euch !!

Gruß,
Manu

[MW880729]

Zitat von turboPASCAL:

Das Bild vergrössert du ja dann auch noch in der Printfunktion.

Gibts denn ne Möglichkeit, das Bild in 147x45 Pixel zu drucken, ohne dass es so verwurstelt wird ??

Danke schonmal!

Gruß,
Manu