Bitmap drucken funktioniert nicht

[Michael Eicher]

Das Drucken über Printer.canvas funktioniert soweit problemlos, außer wenn es um Bitmaps geht. Über Canvas.draw (und die verwandten Prozeduren)führt kein einziger Versuch zum Erfolg. Es ist als würde der Befehl ignoriert.

Wie lassen sich Bitmaps drucken ?

[Fritz Schulze]

<pre>
procedure Print_Bmp(BmpName:string);
var
bmp : tbitmap;
rect : trect;
begin
begindoc;
if fileexist(BmpName) then
begin
bmp:=tbitmap.create;
bmp.loadfromfile(BmpName);
with rect do begin
left:=100;
top:=100;
right:=left+100;
bottom:=top+100;
end;
printer.canvas.stretchdraw(rect,bmp);
bmp.free;
end;
end;
</pre>

mit right kleiner left oder
bottom kleiner top
wird das Bild sogar gespiegelt

[KarstenKattner]

Siehe unter <P>

<a href="/webx?13@@.ee6eb3c/6">KarstenKattner "Bitmaps drucken geht nicht..." 19.12.2000 16:22</a><P>

oder suchbegriff BltTBitmapAsDib<P>

Die Lösung funktioniert bei mir schon seit Jahren. Problem gibts nur bei einigen Treibern wenn der Druckbereich überschritten wir