Holas,
olvide publicar las fuentes del la ultima version del preview que contempla la orientacion de pagina
http://www.box.net/shared/8lhxyymtga
saludos
Marcelo
Silvio wrote:HB_FUNC( CREATECOMPATIBLEBITMAP )
{
hb_retnl( (LONG) CreateCompatibleBitmap( ( HDC ) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ) ));
}
sysctrl2 wrote:usas treport ? debes colocar esta linea de codigo,
oReport:oDevice:lPrvModal := .T.
ACTIVE REPORT .......
con tprinter:
PRINT oPrn NAME "Impresion ..." PREVIEW
oPrn:lPrvModal := .t.
bueno es solo una sugerencia quizas se otro tu problema,
saludos..
IF oReporte:lCreated
oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF
FUNCTION ShadowRow(oRep)
LOCAL nCols := LEN(oRep:aCols)
LOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)
IF oRep:oShdBrush == NIL
DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow
ENDIF
SetBkMode(oRep:oDevice:hDCOut,1)
oRep:oDevice:FillRect( {oRep:nRow + 1,;
oRep:aCols[1],;
oRep:nRow + 1 + oRep:aDataHeight[nLine],;
oRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;
oRep:oShdBrush)
RETURN (NIL)
Armando wrote:Rubén:
A ver si esto es lo que necesitas
- Code: Select all Expand view
IF oReporte:lCreated
oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF
Y esta es la función ShadowRow()
- Code: Select all Expand view
FUNCTION ShadowRow(oRep)
LOCAL nCols := LEN(oRep:aCols)
LOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)
IF oRep:oShdBrush == NIL
DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow
ENDIF
SetBkMode(oRep:oDevice:hDCOut,1)
oRep:oDevice:FillRect( {oRep:nRow + 1,;
oRep:aCols[1],;
oRep:nRow + 1 + oRep:aDataHeight[nLine],;
oRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;
oRep:oShdBrush)
RETURN (NIL)
Saludos
Marcelo Via Giglio wrote:Holas,
olvide publicar las fuentes del la ultima version del preview que contempla la orientacion de pagina
http://www.box.net/shared/8lhxyymtga
saludos
Marcelo
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 27 guests