Help !!! - Wo ist steckt der Fehler ab dem 2. Druckaufruf.

[fwsp]

Delphi-Quellcode:

procedure TForm1.Drucken1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;

begin 
  if printdiaf1.Execute then //ist doch ne fkt die was hübsches zurück gibt
  begin

  //...

  
  end;
end;

was genau macht denn questprint;? poste vllt noch mal den code.