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.