FiveTech Software tech support forums

... cCiudad := TRIM(cli->ciudad) cEstado := TRIM(cli->estado) cCodPos := cli->codpos oPrn:= TDosPrn():New() IF ! oPrn:lCancel oPrn:StartPage() Enc_Rep(mCliNum, mCliNom, cCliAte, cDirec, cColon, ; cCiudad, cEstado, cCodPos) SELECT cli DO WHILE cli->(!EOF()) // Inicializa variables ...

... nLen := len(cTitle) if nPage == 0 .or. wrow >= 62 nPage++ if nPage > 1 .and. wrow >= 62 wrow := 0 oPrn:EndPage() nTopRow := 0 endif oPrn:StartPage() oPrn:Say(nTopRow * nRd,(40 - (nLen/2)) * nCd,cTitle,oFont) oPrn:Say((nTopRow + 1)* nRd,(40 - (nLen/2))*nCd,replicate('-',nLen),oFont) oPrn:Say((nTopRow ...

... " Pesos " ELSE cMone := " Dólares " ENDIF dftmp->(DBGOTOP()) oPrn:= TDosPrn():New() IF ! oPrn:lCancel begin sequence oPrn:StartPage() oPrn:Command("27","64") oPrn:Command( oPrn:cCompress ) While Empty( oPrn:hDC ) MsgStop( "Impresora no esta lista!","Alto" ...

... lSelection ),oPrinter := TPrinter():New( cDoc, .f., lPreview, cDevice, lModal, lSelection )) Function PageBegin() If lSalid2 // Else oPrinter:StartPage() Endif Return nil Function PageEnd() If lSalid2 // nRow debe continuar incrementandose Else oPrinter:EndPage() Endif Return nil Function ...

... mdesc = a->Desc1 oWord:Say2( mLinea,1,mCod,oFont2,9,,, ) oWord:Say2( mLinea,3,mDesc,oFont2,9,,, ) skip mLinea = mLinea + 1 ENDDO // oWord:StartPage() SYSREFRESH() // oWord:EndPage() // oWord:StartPage() oWord:Save("C:\DATA1\PRUEBA.DOC") oWord:Preview() //oWord:PrintDoc(,,,,,,,,,) ...

... FOOTER " "+asientos->conc END REPORT ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }; ON STARTPAGE StartPage(oReport) Necesito que en HEADER del GOUP oRptGrp, el alltrim(asientos->descasi) este en el 2° renglon, y el resto en el 1°. Si ...

... oReport:nGroupLine := RPT_NOLINE // no imprime linea separadora // oReport:oHeader:aFont[3] := { || 2 } END REPORT ACTIVATE REPORT oReport ; ON STARTPAGE (LinBox(oReport,1.3,1.3,.6,.5), ; Bitmaps(oReport,.3,.3,1,1)) CLOSE FILATEMO CLOSE TABLAFIL CLOSE DEPENDE oFont1:End() oFont2:End() RETURN ...

Buenos dias Ramon

He utilizado endpage y new y sigue sin hacermelo, he probado con endpage y startpage y tampoco
como puedo hacerlo?

gracias y un saludo

Carmen Gomez

Holas. ....... oPrn:=TDosPrn():New(nPuerto) oPrn:StartPage() // ... ..} nPosH := 1 FOR nCont := 1 TO nCopias oPrn:Say(nPosH, nPosV, aDatCli[2]) ... .. . NEXT ... .. . Wili. Gracias por contestar. En principio creo que no se ha comprendido la cuestión. ...

Holas.

.......
oPrn:=TDosPrn():New(nPuerto)
oPrn:StartPage() //
...
..}
nPosH := 1
FOR nCont := 1 TO nCopias
oPrn:Say(nPosH, nPosV, aDatCli[2])
...
..
.
NEXT
...
..
.

... := "TOTAL DE ESTA PAGINA..." oReport:cGrandTotal := "TOTAL DE ESTA PAGINA..." ENDIF ACTIVATE REPORT oReport ; ON STARTGROUP oReport:NewLine(); ON STARTPAGE StartPag(oReport) oFont1:End() oFont2:End() oFont3:End() oPen1:End() oPen2:End() RETURN NIL Espero te sirva de algo. Saludos. Francisco Alegría

... nesta impressora com a classe do tdosprn ? Pos funciona em todas as matriciais menos nela oPrn := MaTDosPrn():New( cTemp ) oPrn:StartPage() SetPrc(00,00) oPrn:Say(nLin,00,&(oPub:PrnNeg) + Left(Setup->Empresa,37) + &(oPub:PrnNegF) ) // Recolocar xdata nLin++ oPrn:Say(nLin,00,&(oPub:PrnPeq) ...

... como indicar a una miniprinter de tickets que corte al hoja ?? gracias Hola RMC Intenta enviando esta impresion oprn:=Tdosprn():New(cPort) oprn:Startpage() oprn:ommand("27","64" ) oprn:command("27","105" ) oprn:Command("18" ) oprn:Endpage() oprn:End() Te resulta para una impresora paralela. ...

... totales [b] oReport:bSkip := {|| ++nBrinco, oDatos:skip(1) }[/ b] END REPORT ACTIVATE REPORT oReport WHILE nBrinco <= len(oDatos:aDatos) ; ON STARTPAGE Tone( 100, 1 ) ; ON STARTGROUP oReport:NewLine()

Estoy intentando en un REPORT encabezarlo con un Bitmap, con el clásico: ... ON STARTPAGE IBitMap(oReport) y en la funcion IBitMap: oReport:SayBitMap( ..... Me encuentro con varios problemas: 1) El Header no respeta el Bitmap y se incrusta en la imagen. ¿Como consigo ...