FiveTech Software tech support forums

... objExcel:Cells(1, 5):Font:bold := .T. objExcel:Cells(1, 5):Font:Size := 14 objExcel:Cells(1, 5):Value := "ARTICULOS" FOR nRen := 7 TO 56 objExcel:Rows(nRen):RowHeight:=12 NEXT objExcel:Range("B7:C56"):Borders():LineStyle := 1 objExcel:Range("E7:F56"):Borders():LineStyle ...

... local oPrn local oFont local oFont1 local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn ...

... local oPrn local oFont local oFont1 local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn ...

oBrw:nColSel := 2
oBrw:nRowSel := nRen

saludos..

Con .jpg SayImg( "img.jpg", oPrn,3,10, 6, 3 ) function SayImg( cImage, oPrn, nRen, nCol, nAncho, nAlto ) local oImg := TImage():Define( , cImage ) local aTam := oPrn:Cmtr2Pix(nAncho,nAlto) oPrn:SayImage(nRen,nCol,oImg,aTam[1], aTam[2]) oImg:end() return nil ...

... // nombre de archivo temporal con extencion PRN OBJ_PRINT:=TDosPrn():New(OBJ_FILE) OBJ_PRINT:=Command('27','67','46') OBJ_PRINT:Say(nRen,nCol,'renglon 1') OBJ_PRINT:Say(nRen,nCol,'renglon 2') ... OBJ_PRINT:Say(nRen,nCol,'renglon 50') ... OBJ_PRINT:EndPage() OBJ_PRINT:End() PrintFileRaw(cPort,OBJ_FILE) ...

... izquierda PAD_RIGHT = el texto se imprime a la derecha. PAD_CENTER = el texto se imprime centradro. para numeros yo utilizo, PAD_RIGHT oPrn:CmSay(nRen,18, transform( (field->importe*n15), "9,999,999.99"), oFnt3 , nil, nil, nil, PAD_RIGHT ) espero que sea lo que quieres saber. Saludos..

Hola Armando: y me funciona a la perfección, pero ahora que estoy migrandola a 32bits me tira un error en el código nRen := oBrw:nTSBrow(nRowPix) TSBrows en 32 bits cambia bastante en relación con la versión de 16 bits. Prueba cambiando obrw:nTSBrow(nRowPix) por: oBrw:GetTxtRow( ...

... oPrnBol:CmSay(nRow ,4.5,Bolserie(),oFn1,,,,2) oPrnBol:CmSay(nRow ,7.0,Bolimporte,oFn1,,,,1) (oDBol)->(DbSkip()) nREN++ ENDDO nRow+=0.6 oPrnBol:CmLine(nRow,0.3,nRow,7.2) (oDBol)->(DbGoTo(nRec)) oPrnBol:CmSay(nRow+=,4.4,"TOTAL DE BOLETOS:",oFn1,,,,1) ...

... oPrnBol:CmSay(nRow ,4.5,Bolserie(),oFn1,,,,2) oPrnBol:CmSay(nRow ,7.0,Bolimporte,oFn1,,,,1) (oDBol)->(DbSkip()) nREN++ ENDDO nRow+=0.6 oPrnBol:CmLine(nRow,0.3,nRow,7.2) (oDBol)->(DbGoTo(nRec)) oPrnBol:CmSay(nRow+=,4.4,"TOTAL DE BOLETOS:",oFn1,,,,1) ...

... que dar más espacio entre el SAY y el COMBOBOX. En otras, he tenido que insertar un SAY extra. Tal pareciera que lo que necesita es más espacio. @nRen,7 SAY "Nombre de quien prop la info" OF oPanel SIZE 180,15 PIXEL nRen+=16 @nRen,7 GET oDbf:NXATENDIO PICTURE "@!" OF oPanel ...

... en centimetros pero cuando incluyo la opcion BANNER si imprime el codigo de barra pero el letrero que va abajo del codigo no lo imprime. Ej. @ nRen, nPos CM_UPCA strzero(L,6) WIDTH nGro SIZE nLar OF opr banner yo defino linea, poicion , grosor de la lineas de codigo y la longitu (altura) en ...

Ya está... estaba aplicando la propiedad de forma incorrecta

nRen++
nRen++
oAS:Cells(nRen,1):Select()

oAS:Pictures:Insert( aPub[6]+"TEMP\NX50001A.JPG" )

Me falta hacer que la imagen sea más pequeña... igual y lo que necesito es hacer un resize antes de agregarla.

Seguiré investigando

... ; HEADER "Fecha: " + DToC( Date() ) + ", Hora: " + Time() ; FOOTER "Página: " + Str( oRpt:nPage, 3 ) FONT ::oWnd:oFont COLUMN DATA ::aLines[ nRen ] SIZE 100 ENDREPORT oRpt:bSkip = { || nRen++ } oRpt:oDevice:setPortrait() ACTIVATE REPORT oRpt WHILE nRen <= len( ::aLines )

function _prnMatriz() local oPrn local nRen := 1 local nPag := 1 oPrn:= TDosPrn():New( "LPT1" ) oPrn:command('18') //chr(18) //chr(15) condensado dbselectArea("clientes") ordsetocus(1) dbgotop() do while !eof() oPrn:say(nRen, 1, field->codigo ...