schlechte Druckqualität

[Fargate]

Hallo
wenn ich ein farbiges JPG auf einem s/w Drucker, einmal mit MS Word und dann mit Delphi ausdrucke, ist mit Delphi die Druckqualität viel viel schlechter.
Weis jemand, was man da machen kann.

Thx
Fargate

[Stefan Hofmann]

Hallo,

ich vermute Du druckst das Bild mit Printer.Canvas.StretchDraw.
Das ergibt eine schlechtere Druckqualität als eine Windows-GDI-Funktion: StretchDIBits. Bei Farbbildern hat dies auf einem Farbdrucker dieselbe Qualität wie Word/CorelDraw o.ä. ergeben. Mein S/W Tintenkleckser bekommt die Bilder ebenfalls gut hin.
Als Bild habe ich ein Bitmap verwendet. Das Rechteck Rec1 ist noch mit Positionsdaten zu versehen.

<pre>

function druck;
var Bitmap1: TBitmap;
Info: TBitmapinfo;
InfoSize,ImageSize: DWord;
Bits: PChar;
Rec1: TRect
begin
GetDIBSizes(Bitmap1.Handle,InfoSize,ImageSize);
GetMem(Bits,InfoSize+ImageSize);
Printer.BeginDoc;
try
GetDIB(Bitmap1.Handle,Bitmap1.Palette,Info,Bits^);

StretchDIBits(Printer.Canvas.Handle,Rec1.Left,Rec1 .Top,Rec1.Right-Rec1.Left,Rec1.Bottom-Rec1.Top,0,0,Bitmap1.Width,Bitmap1.Height,Bits,Inf o,DIB_RGB_COLORS,SRCCOPY);

finally
Printer.EndDoc;
FreeMem(Bits);
end;
end;

</pre>

Viel Erfolg,

Stefan Hofman