CREATE OR REPLACE PROCEDURE Xxfooter IS BEGIN -- Plpdf.DrawRect(1,277,208,19); Plpdf.SetPrintFont('Arial','I',8); -- Arial italic 8 --Plpdf.PrintCell(0,10, TO_CHAR(Plpdf.CurrentPageNumber) || '/{nb}',0,0,'C'); -- print number of page Plpdf.PrintCell(0,10, '{cp}/{nb}',0,0,'C'); -- print number of page END; /