FiveTech Software tech support forums

... ocorre o seguinte erro : SetMTxtPreview( .f., 5, 2, .f., .t. ) cFile := "TEST.PRN" cPorta := "LPT1" oPrn:= TDosPrn():New( cFile ) oPrn:StartPage() nlin:=1 for nCont := 1 to 10 oPrn:Say( ++nLin, 00, "teste de impressao" ) oPrn:Say( ++nLin, 00, "Resumo de Mesas " ) next oPrn:EndPage() oPrn:End() ...

... METHOD Imprimir() CLASS FT604 //se imprime el comprobante de pago Local cPuerto:="LPT1", oPrn LOCAL nLin, nFor oPrn:=TDosPrn():New(cPuerto) oPrn:Command("27,112,0,60,240") oPrn:SayCmp( 01,00, "Caja:" ) FOR nFor = 1 TO Len( AR_DATOS ) imprimo los datos ...

Pedro...

oPrn:oRpt:cmSay(nLin+13.8,19.5, transform(d,"9,999,999.99"), oPrn:aFonts[6],,,,1 )

Saludos.
Ricardo

... endif retu .t. // LA CLASE TWORD CLASS TWord DATA oWord DATA oDocs DATA oActiveDoc DATA oTexto DATA oSelection DATA cNombreDoc DATA nLinea,nCol, nPage DATA nYoffset, nXoffset DATA lstartpag DATA oLastSay DATA lOverflowing DATA nlastrow DATA cTextOverflow DATA lSetCm DATA oOptions ...

... METHOD Imprimir() CLASS FT604 Local cPuerto:="LPT1" LOCAL nLin, nFor, cTemp := "", nSubtot := 0, nTotal := 0, nProd, lFor DB_LIBVTA:DBSetOrder( 01 ) IF DB_LIBVTA:SEEK( ::vMespro + ::nLocal + StrZero( Val( ::vGet[03] ...

... //PAGE // IF lLImagen oImagen:LoadImage(,cFImagen) oPrn:SayImage( 0, 0, oImagen,4800,6800 ) ENDIF // IF lLTexto cTexto:=Memoread(cFTexto) nLineasTexto:=MlCount(cTexto,75) // FOR i := 1 TO nLineasTexto cLineaActual:=MemoLine(cTexto,75,i,,.F.) oPrn:CmSay(nLin+0.5,1, cLineaActual, oFont1) ...