Tips: How to print page# n of m pages.

Thanks David and Timo

Oh dear, no edit here, so sorry for the spelling... Read .. "Knocked up quickly"

Actually Timo, this was just something I knowed up quyickly for a post that a user made on MBSOnline. IOts about 5 minutes work, just to show him where to get started. Erik just used it as a test for creating uploads on Community Server. If you want, feel welcome to down load this and upload your improved version here. Just make sure to give me credit for the original ;) .

There is a better way availible: e. g. in Report 205 in Trigger CopyLoop - OnAfterGetRecord() IF Number > 1 THEN CopyText := Text003; CurrReport.PAGENO := 1; // > TL4.01:01 >>> IF NOT BlockCountTotalPages THEN BEGIN SalesHeader2 := "Sales Header"; SalesHeader2.SETRECFILTER; repMySelf.SETTABLEVIEW(SalesHeader2); repMySelf.BlockCountingTotalPages; IF repMySelf.SAVEASHTML(DELCHR(ENVIRON('TEMP'),'>','\') + '\' + repMySelf.OBJECTID + '.html') THEN BEGIN TotalNoOfPages := repMySelf.GetTotalNoOfPages; CLEAR(repMySelf); ERASE(DELCHR(ENVIRON('TEMP'),'>','\') + '\' + repMySelf.OBJECTID + '.html'); END; END; // < TL4.01:01 <<< Therefore you need two new functions in that report: GetTotalNoOfPages() : Integer EXIT(CurrReport.PAGENO); BlockCountingTotalPages() BlockCountTotalPages := TRUE;