Manuel §2.28.1    

Fonction SetPrintPageFunction

La fonction SetPrintPageFunction permet d'associer à un objet d'impression la fonction qui réalise effectivement les impressions.

La fonction de retour a deux paramètre un contexte d'équipements (DC ou device context [1] ) et un numéro de page, elle retourne un compte-rendu (1 OK).

A l'intérieur de la fonction, on réalise toutes les opérations requises en utilisant le DC.

Par exemple

Etiquette Printout, "HP Color LaserJet 3500", 210, 297;

Function ImprimeEtiquette( dc, numpage)
begin
dcDrawText( dc, "Sisal is winning again.", 0, 0);
dcDrawText( dc, "page ":numpage, 90, 270);
end
....
On do begin
Etiquette.SetPrintPageFunction( ImprimeEtiquette);
end

On bt.click do begin
Etiquette.MinPage = 1;
Etiquette.MaxPage = 10;
Etiquette.PageFrom = 1;
Etiquette.PageTo = 10;
Etiquette.Preview();
end

Cet exemple affichera en prévisualisation les dix pages du document équivalent.