Vielen Dank für den tip, nur wenn ich es so mache wie du sagst klappt es auch net!
jetzt druckt er nur eine seite und den rest nicht!?
wieso das?
Delphi-Quellcode:
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);
end;
EndDoc;
end;