Vielleicht, weil du alle Bilder übereinander malst?
Füge mal NewPage ein:
Delphi-Quellcode:
begin
// ...
with printer do
begin
Orientation := poPortrait;
BeginDoc;
for i := 1 to Seitenanzahl do
begin
rechnung.Picture.LoadFromFile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Seite' + inttostr(Aktuelle_Seite) + '.bmp');
pic.assign(Rechnung.Picture.Graphic);
breite := GetDeviceCaps(Printer.Handle,Horzres);
hoehe := GetDeviceCaps(Printer.Handle,Vertres);
Canvas.StretchDraw(Rect(0,0,Breite,Hoehe), pic);
NewPage;
end;
EndDoc;
end;