![Shocked :shock:](./images/smilies/icon_eek.gif)
oGraph:PrintGraph( lPrev, oPrn, nY, nX, cFile, nPorY, nPorX )
cnavarro wrote:Jose Luis, la clase tiene un método, no sé si te serviráoGraph:PrintGraph( lPrev, oPrn, nY, nX, cFile, nPorY, nPorX )
STATIC FUNCTION InformCierre( oBrw, oGraph )
LOCAL oRpt, oPrn, aPos, aSiz, cFile
SET 3DLOOK OFF
PRINTER oPrn TO cPrintPDF FILE cFile PREVIEW
IF EMPTY( oPrn:hDC )
RETURN NIL
ENDIF
aPos:=oPrn:Cmtr2Pix(0.50,11.5)
aSiz:=oPrn:Cmtr2Pix(12.5, 5.5)
oPrn:SetPage( 2 ) // 1=Papel Letter 8 1/2 x 11 in / 9=A4 210 x 297 mm
SELECT PA25 ; DBGOTOP()
REPORT oRpt TITLE " "," ","INFORME PROCESO DE PACKING N° "+PA18->NPRO+" - "+DTOC(PA18->FECH),"EMPRESA : "+AllTrim(PA18->LOTE),"PRODUCTOR : "+AllTrim(PA18->CCSG)+"-"+AllTrim(PA18->NOMB),"ESPECIE : "+PA18->ESPE+"-"+AllTrim(PA18->NOME),"VARIEDAD : "+PA18->VARI+"-"+AllTrim(PA18->ETIQ)," "," "," "," "," "," "," "," "," "," "," " LEFT ;
HEADER oGraph:Print(oPrn,aPos[1],aPos[2],aSiz[1],aSiz[2]), cEmpresa, AllTrim(cDireccion)+" / "+AllTrim(cCiudad)+" / "+ AllTrim(cTelefono)
TO DEVICE oPrn
...
...
...
joseluisysturiz wrote:I have not tried the methodo print, I imagine that it has everything necessary to print the graphic, I will try it and then comment, anyway I would like to see that methodo Navarro talks about to compare it, so you learn more, thanks...![]()
No he probado el methodo print, imagino que tiene todo lo necesario para imprimir el grafico, lo intentare y luego comento, igual me gustaria ver ese methodo del que habla Navarro para compararlo, asi se aprende mas, gracias...
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 30 guests