FiveTech Software tech support forums

... "title row 2" local nTotalpages:= oRep:oDevice:cLastPage oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+(nTotalpages)} }, oRep, 2 ) I tried and run ok thanks Rao

Is It possible also with treport? Yes Where you write page number, write something like this: "Page : " + cValToChar( nPage ) + ;            " of " + oRep:oDevice:cLastPage Nages, There is something not run ok on Treport https://i.postimg.cc/WzYHVtyx/kk.png ...

... ( class Treport) the total number of pages ? local nTotalpages:= ? oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+Str(nTotalpages,3)} }, oRep, 2 ) I tried also with nTotalpages:=:= Round(oRep:nCount/oRep:nPageSize,0) thanks

... oRep:oheader := TrLine():New( {{||cTitle1},{||cTitle2} }, oRep, 0 ) oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+Str(nTotalpages,3)} }, oRep, 2 )

... result but i still have problems 1) the stripes don't have the pajama effect, they are all grey 2) does not recognize "Page : "+Str(oRep:nPage,3) 3) the title line needs to be narrower oBrw:Report( "Stampa elenco", nil, nil, { | oRep, oBrw, n| RepSetUp( oRep, oBrw, n ) }) static ...

Hola Amigos. Tengo un reporte realizado con REPORT, el cual se imprime en hoja nueva por cada GROUP, necesito que al cambiar de GROUP, el nPage comience en 1. Muchos Saludos Antonio Dejo el codigo: Static Function InfTAte(Tit,cNom)            Local cTi1,cTi2,oPen1,oPen2,oFo1,oFo2,oFo3,oLine,oFo4,nCounter ...

... llandscape oRep:lAutoLand := .T. else oRep:lAutoLand := .f. Endif oRep:CellView() oRep:oFooter := TrLine():New( {{|| "Page : "+Str(oRep:nPage,3)} }, oRep, 3 ) return nil

... Alltrim(vEntregador),"Todos os Entregadores") CENTERED; FONT oFont1, oFont2, oFont3; FOOTER OemToAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED; PREVIEW IF vDetalhado == .T. oReport:lSummary := .F. ELSE oReport:lSummary := .T. ENDIF COLUMN TITLE "Entregador" ; DATA ...

... ; FONT oFont1, oFont2 ; HEADER "Fecha: " + DToC( Date() ) , "Hora.: " + Time() ; FOOTER "Página: " + Str( oReport:nPage, 3 ) ; PREVIEW NAME "Clientes" ; CAPTION "Clientes" COLUMN TITLE "NRO.","IVA"; DATA cliente,if(str(sit_iva,1) ...

... PRINT/ENDPRINT se controla desde atrás y es aquí donde se produce el error. Function printafoto(oImage,base) LOCAL cz:=lz:="" Local nPage:=X:=1 Local nHz:=0 *Local oImage Local oPrn IF BASE="FOTOS" PRINT oprn NAME "GRAFICOS" preview DEFINE FONT oFont1 NAME "MS ...

... DE TRABAJADORES HONORARIOS",; "Fecha: "+Dtoc(Date()),; "Hora : "+Time() LEFT ; FOOTER "Pag "+Str(oLis:nPage,3) CENTERED; CAPTION "Boletas de Medicamentos"; PREVIEW COLUMN TITLE "FECHA" DATA Boletas->FECHA COLUMN TITLE "Nº ...

... "+cRut; HEADER "SINDICATO",; "Fecha: "+Dtoc(Date()),; "Hora : "+Time() LEFT ; FOOTER "Pag "+Str(oLis:nPage,3) CENTERED; CAPTION "Boletas"; PREVIEW COLUMN TITLE "FECHA" DATA Boletas->FECHA COLUMN TITLE "Nº BOLETA" DATA ...

... ,; "stabilimento bagno" ,; "stabilimento bagno" ,; "1234567890" LEFT ; FOOTER "Pagina: " + STR( ::oReport:nPage, 3 ) RIGHT ; PREVIEW and now seem print ok as you can see here ...very very strange https://i.postimg.cc/28WrXbcL/rr.png Someone ...

... oExcel := GetActiveObject( "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH RETURN END END nPage := 1 nRow := 1 oBook := oExcel:WorkBooks:Add() oAS := oBook:Worksheets(1) oAs:Name := 'REPORT' oAS:Cells:Font:Name := "Arial" oAS:Cells:Font:Size ...

The idea is good, but the implementation look a little lazy: The SetPage method takes the nPage from this list but this implementation calls HPDF_Page_SetSize that take the values from this list I tried using this code: //------------------------------------------------------------------------------METHOD ...