FiveTech Software tech support forums

James Bott wrote:wndMain():bValid := {|| oRpt:lEnd := .t., .t.}

The last .t. is redundant. This is equivalent:

Code: Select all  Expand view

wndMain():bValid := {|| oRpt:lEnd := .t.}

EMG

Gente quiero mostrar mi pagina apaisada para un reporte con la clase report pero no he tenido exito con esta instruccion oRpt:oDevice:SETLANDSCAPE() oRpt:Stabilize() Con la vers. fw2.1 recuerdo que el apaisado era automatico pero ahora que compilo con xharbour y fwh 8, ya no se cambia ...

Reinaldo, You could try, when defining the report, something like this: wndMain():bValid := {|| oRpt:lEnd := .t., .t.} This should end the preview when the main window is closed. Regards, James Adopting Mr. James suggestion, the METHOD Activate() of TPreview class can ...

Reinaldo,

You could try, when defining the report, something like this:

wndMain():bValid := {|| oRpt:lEnd := .t., .t.}

This should end the preview when the main window is closed.

Regards,
James

armando.lagunas wrote:function reporte( lImp )
local oPrn, oRpt

IF lImp ; PRINTER oPrn FROM USER PREVIEW
ELSE ; PRINTER oPrn
ENDIF

REPORT oRpt TITLE ...... < etc >...... TO DEVICE oPrn
...
...
RETURN nil

Armando, muchas gracias. FUNCIONA PERFECTAMENTE.

... la desición del usuario de ver o no el informe --------------------------------------------------------- function reporte( lImp ) local oPrn, oRpt IF lImp ; PRINTER oPrn FROM USER PREVIEW ELSE ; PRINTER oPrn ENDIF REPORT oRpt TITLE ...... < etc >...... TO DEVICE oPrn ... ... RETURN nil ...

... of the printer and paper. You have to compensate by calculating the actual distances. These print device properties return the pixels per inch: oRpt:oPrn:nLogPixelx(): 300 pixels per inch horizontal oRpt:oPrn:nLogPixely(): 300 pixels per inch vertical So, if you are doing nRow + 100 (pixels) ...

Sajith, You have to remember that each printer may have a different resolution. You can get the printer's resolution like this: nHorz := oRpt:oPrn:nHorzRes() nVert := oRpt:oPrn:nVertRes() When you are using nRow + 100, that is 100 pixels and 100 pixels on your printer is not the same as 100 ...

Javier, talvez este codigo parcial te pueda servir de guía. Saludos. //Columnas de las cuentas for n := nColIniCtas to (nColIniCtas+nColsCtas )-1 oRpt:AddColumn( TrColumn():New( { TituCol( cAlias, n, aCuentas ) },,; { DatoCol( cAlias, n, aCuentas ) },12,; { "@Z( 9,999,999,999.99"},,,,,,.t.,, ...

Pedro,

I have never done it so I do not have an example.

If you are only using one defined group, then you may be able to just call the StartGroup method like this:

oRpt:bStartPage := ( || oRpt:startGroup( 1 ) }

Regards,
James

Try using oRpt:bStartPage.

Regards,
James

... por linea prueba de esta manera aTitulo := {} aadd( aTitulo, {|| "Titulo1" } ) aadd( aTitulo, {|| "Titulo2" } ) REPORT oRpt PREVIEW; HEADER "Header1", "Header2" ; FONT oFont01 CAPTION NRP oRpt:oTitle := TrLine():New( aTitulo, oRpt, 3 ) ....

Saludos Antonio estoy tratando de hacer lo siguiente....: Esta es la manera normal de colocar los TITLE y los HEADER.... REPORT oRpt PREVIEW; TITLE "Titulo1", "Titulo2" HEADER "Header1", "Header2" ; FONT oFont01 CAPTION NRP FOR I=1 TO LEN(COL) T:=TIT[I] ...

... Karinha por contestar. Pero lo necesito para un REPORT. En Tprinter no tengo problemas. Pero con la clase REPORT se me ocurre ponerlo con un oRpt:SAY(....) pero no consigo que me tome el FONT declarado como vetical.

... Called from: C:\SISINGE\PRUEBASX\REPORT.PRG => MAIN(110) agregue esto nuevo...y ahora da el error anterior.... intente usar, oRpt:bStartRecord := {|| nVentas+= &(oDbf)->total } y nVentas siempre me da 0, nose si es que lo estoy usando en el lugar equivocado, lo hacia ...