Grafik wird nicht immer gedruckt

[easywk]

Moin, moin,

zum Ausdrucken benutze ich direkt die Canvas von Printer. Nun möchte ich auf jede Seite ein Bild in der Kopfzeile haben (JPG-Grafik). Das funktioniert prinzipiell auch ganz gut, ABER: obwohl die entsprechende Routine definitiv jedes Mal angesprungen wird (habe ich kontrolliert), erscheint die Grafik nicht immer. Ich kann keine Prozentzahl nennen, aber wenn ich viele Seiten hintereinander drucke, dann sind immer mal wieder Seiten dabei, bei denen die Grafik fehlt. Auf der nächsten Seite ist sie dann wieder da. Mache ich einen Denkfehler in meinem Code (nur der relevante Teil)?

Delphi-Quellcode:

Image2:=TImage.Create(NIL);
Image2.AutoSize:=TRUE; Image2.Stretch:=FALSE;
try
  Image2.Picture.LoadFromFile(ImageDateiname);
  EndY:=EndY-10-Image2.Height;
  if FooterImageCenter then
    x:=((Printer.PageWidth-Image2.Width) div 2)
  else x:=StartX;
    Printer.Canvas.StretchDraw(Rect(x,EndY+10,x+Image2.Width,EndY+Image2.Height),Image2.Picture.Graphic);
finally
  Image2.Free;
end;

Danke im voraus.

cu
easywk

[toms]

Hallo!

Probiere mal StretchDIBits
Beispiel