Probleme beim Drucken von Bildern

[shmia]

Mir fällt auf, dass du TImage verwendest obwohl hier eigentlich TPicture verwendet werden sollte:
procedure PrintBild(DestRect:TRect; {Image:TImage}Picture:TPicture); Und später:

Delphi-Quellcode:

procedure PrintIt(Filename:String; BildHoeheMillimeter,BildBreiteMillimeter:Integer); 
var Pict:TPicture; 
  Rect:TRect; cnt,bb,bh:INTEGER; 
begin 
  Pict:=TPicture.Create;
  try 
    Pict.LoadFromFile(Inhalt.Inhalt);
    ...
    PrintBild(Rect,Pict); 
  finally
    Pict.Free;
  end;
end;

Das ist jetzt noch nicht die Lösung deines Problems, aber der Code ist so zumindest sauberer.