>LOCAL lnMaxRows >*** Display the last page of the grid when the form instantiates >IF DODEFAULT() > Thisform.LockScreen = .T. > WITH Thisform.GrdCustomer > *** Calculate the maximum number of rows per grid page > lnMaxRows = INT( ( .Height - .HeaderHeight - ; > IIF( INLIST( .ScrollBars, 1, 3 ), SYSMETRIC( 8 ), 0 ) ) / .RowHeight ) > GO BOTTOM IN ( .RecordSource ) > *** Go to the record that should be in the first row of the last page > SKIP -( lnMaxRows - 1 ) IN ( .RecordSource ) > .SetFocus() > *** Make sure it is the first relative row > DO WHILE .RelativeRow # 1 > .DoScroll( 1 ) > ENDDO > ENDWITH > Thisform.LockScreen = .F. >ENDIF >>