Originalmente se muestra así:

Ahora:

DATA lEject INIT .f.Method StartGroup():
if ::aGroups[ nGroup]:lHeader
::StartLine( ::aGroups[ nGroup]:nHeaderHeight )
::aGroups[ nGroup]:Header( ::nRow)
::EndLine( ::aGroups[ nGroup]:nHeaderHeight )
endif if ::aGroups[ nGroup]:lHeader
if !::aGroups[ nGroup]:lEject .and. ! ::lFirstRow
::TotalLine( ::nTotalLine, GRID_ABOVE )
::lEject := .f.
::ColTitle()
else
::lEject := .t.
endif
::StartLine( ::aGroups[ nGroup]:nHeaderHeight )
::aGroups[ nGroup]:Header( ::nRow)
::EndLine( ::aGroups[ nGroup]:nHeaderHeight )
endifMethod ColTitle():
::nRow := ::nTitleRow if !::lEject .and. ! ::lFirstRow
::nRow := ::nRow
else
::nRow := ::nTitleRow
endifPero tengo algunos problemillas:
Cuando la página se llena, distorciona las siguientes 2 hojas y después continúa imprimiendo normalmente...
Seguiré investigando a ver que pasa...
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
