viele Seiten drucken

[SimStar001]

So vielen Dank, jetzt funktioniert es auch genauso wie ich es will!


hier nochmal der korrekte Quellcode:

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(i) + '.bmp');
        pic.assign(Rechnung.Picture.Graphic);
        breite := GetDeviceCaps(Printer.Handle,Horzres);
        hoehe := GetDeviceCaps(Printer.Handle,Vertres);
        Canvas.StretchDraw(Rect(0,0,Breite,Hoehe), pic);
        if i < Seitenanzahl then
          NewPage;
        end;
      EndDoc;
      end;

Danköö!