LPARAMETERS nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight with THIS if not isnull(.Listener) and .Listener.PageTotal > 0 .Listener.OutputPage( ; .PageNo, .Frame.Canvas, 2, ; 0, 0 , 0 , 0 , ; .Frame.Left +2, ; .Frame.Top +2, ; .Frame.Width -4, ; .Frame.Height -4 ) this.backCMD.Enabled = IIF(.listener.pagetotal<=1 or .listener.pageno = 1,.F.,.T.) this.nextCMD.Enabled = IIF(.listener.pagetotal<=1 or .listener.pageno = .listener.pagetotal,.F.,.T.) endif endwithNext Page of the report
with THISFORM .PageNo = min(.Listener.PageTotal,.PageNo+1) .OutputPage() .caption = LEFT(ALLTRIM(.caption),AT('- Page',ALLTRIM(.caption))+6)+TRANSFORM(.pageno)+' of '+TRANSFORM(.listener.pagetotal) endwithAll of these are originated from Colin. I think you should take more time to look into his code... however, i still wait how to output to printer, rather than the container... :D