viele Seiten drucken

[SimStar001]

Hallo, ich muss in meinem programm ein paar bilder ausdrucken.

hier mal nen Quellcode dazu:

Delphi-Quellcode:

procedure drucken;
var pic : TJPEGImage;
    breite, hoehe : integer;
    i : integer;
begin
  if printdialog1.Execute  then
    begin
    pic := TJPEGImage.create;
    Orientation := poPortrait;
    with printer do
      begin
        for i := 1 to Seitenanzahl do
        begin
        BeginDoc;
        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);
        EndDoc;
        end;
      end;

    pic.Free;
    end;
end;

nun meine frage bzw das problem:

Wenn ich im Printdialog den dateinamen eingebe unter dem ich speichern möchte, bzw drucken möchte, dann druckt er mir nur die erste seite aus, und fragt dann immer wieder neu bei jeder seite!

wie kann ich diese frage umgehen, so dass er alles hintereinander ausdruckt?


Vielen dank für die Hilfe