TPrintPreview event to cancel printing...

[mrtossas]

Hi,

In TPrintPreview 5.30, this is my code:

Begindoc;
for i := 1 to 1000 do begin
Print YYY ZZZ...
if XXX then NewPage;

if finish_now then begin
EndDoc;
PrintPreview.Abort;
ShowMessage('Canceled Print');
end;

end; // for
EndDoc;

BUT in TPrintPreview 5.30 not exit the Abort method...

How would I have to rewrite my code in order to cancel the printing when I needed it?

Thanks!