FiveTech Software tech support forums

... 2 ] is Tahoma size 0,-8 bold I need to have another font I made oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) //to print a text nscapment aadd(oRep:aFont, oFontCopy) then oRep:bStartPage := { || oRep:Say(10, cTextCopy, 3,2,1450) } why not run ? the ...

... := "Progetto Magazzino - " local cTitle1 := "title row 1" local cTitle2 := "title row 2" local nTotalpages:= oRep:oDevice:cLastPage oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+(nTotalpages)} }, oRep, 2 ) I ...

... 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 I made oRep:oTitle := TrLine():New( ...

Hi João, I've also made changes to preview.prg. When the invoice button is pressed, these steps are executed: Best regards, Otto    oDevice := DEVICE   aFiles  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()  ...

on a Report from Xbrowse I use a function I wisth show the total pages I tried with LTrim( Str( Len( oRep:oDevice:oDevice:aMeta ) ) ) but not run oBrw:Report( cTitle, , , ; { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aFields ) }) function MySetUp( oRep, oBrw, ...

... have been created even when I could see the file open by Acrobat Reader. ;-) I found out that in source\classes\rpreview.prg, line 1789 return ::oDevice:GenHaruPdf( cFile ) this return value is a logical value. Whereas in line 1883 if ! File( cFile )) cFile is supposed to be a string value. The ...

... have been created even when I could see the file open by Acrobat Reader. ;-) I found out that in source\classes\rpreview.prg, line 1789 return ::oDevice:GenHaruPdf( cFile ) this return value is a logical value. Whereas in line 1883 if ! File( cFile )) cFile is supposed to be a string value. The ...

... pasara a alguien mas, tambien he cambiado el titulo del hilo para que sea mas acorde al problema real. si quereis utilizar la clausula TO DEVICE oDevice en los informes para mandarlos a pantalla o impresora la variable oDevice la teneis que definir asi.  oDevice :=  PrintBegin( cCaption, ...

... error que no existe el alias del informe , yo la verdad no entiendo que tiene que ver, supongo que algo habra pero simplemente quitando TO DEVICE oDevice por PREVIEW Pero ahora una pregunta facil, como mandar directamente el informe a la impresora ? Saludos. Jose.   //nopc : 1 = Impresion previa, ...

Estimados amigos: al final he encontrado el problema que me daba error y es el uso de la variable oDevice. yo pregunto al usuario si quiero el destino pantalla / impresora y desde muy antiguo hago esto. local oDeviceoDevice := TPrinter():New( cCaption, .F., IF( ...

... exclusivamente para ese informe. Y en el xbrowse sigo teniendo la dbf abierta y no tengo problemas de refresco. Y no lo consigo.... :-( Lo del oDevice es un código que tenía con Fivewin para clipper versión 2.0 imagínate más de 20 años. Y que adapte hace 2 años al volver a Fivewin. Y hay partes ...

STATIC FUNCTION ListObras()local oDlg, oFontlocal oDevice, oRepObr// etc . ...dbUseArea( .T., , "Obras", "ListO", .T. )DEFINE DIALOG oDlg NAME "LISTAOBR" ;   TITLE "LISTADO DE OBRAS"     REDEFINE ...

ANYONE ???? Seems like many questions about FWH go unanswered now .... Hi Tim Answer un Spanish forum PREVIEW // TO PRINTER oReport:oDevice:SetPage(15) oReport:bInit := { || dbGoTop() } // add this. Seems it works with this change. Regards. José. Enviado desde mi POCOPHONE F1 mediante Tapatalk

Me falta decir que yo lo tengo al inicio del reporte

PREVIEW // TO PRINTER
oReport:oDevice:SetPage(15)
oReport:bInit := { || dbGoTop() }

Saludos
Oscar

... ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oCursor:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ),, ( ::oImageList:End(), ::oImageList := nil ) ),; If( ! Empty( ::oImageListPages ), ::oImageListPages:End(),),; ...