procedure OnPrintPage;
var
S: String;
i: integer;
begin
// When a user wants to print the current page.
// Store the number of print.
i := strtointdef(GetGlobalVar("myprintcount", "0"),0);
i := i +1;
SetGlobalVar("myprintcount", inttostr(i), True);
if i > 1 Then
SetGlobalVar("printallowed", "0", True);
end;

We use essential cookies to make this site work, and optional cookies to enhance your experience.