FiveTech Support Forums

tengo problemas al imprimir
miren el Ejemplo

Function ImpCotiza()
Local oPrn
Local oFont
Local cCol:=0
Local cFil:=0

PRINT oPrn NAME "COTIZACIONES" PREVIEW FROM USER
DEFINE FONT oFont NAME "Arial" SIZE 0,-12 OF oPrn

cCol:=oPrn:nVertRes()/80
cFil:=oPrn:nHorzRes()/50

// Primera Pagina
PAGE
oPrn:say(00cFil,00cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00cFil,40cCol,"Fecha :"+dtoc(Date()),oFont)

oPrn:say(01cFil,00cCol,oemtoansi("Barraca de Maredas"),oFont)
oPrn:say(01cFil,40cCol,"Hora :"+Time(),oFont)

oPrn:say(02cFil,00cCol,oemtoansi("Materiales de Construcci¢n"),oFont)

ENDPAGE

//Segunda Pagina
PAGE
oPrn:say(00cFil,00cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00cFil,40cCol,"Fecha :"+dtoc(Date()),oFont)

oPrn:say(01cFil,00cCol,oemtoansi("Barraca de Maredas"),oFont)
oPrn:say(01cFil,40cCol,"Hora :"+Time(),oFont)

oPrn:say(02cFil,00cCol,oemtoansi("Materiales de Construcci¢n"),oFont)

ENDPAGE

ENDPRINT
oFont:end()
Return

El problema es q nose porque la primera pagina me la muestra vacia,, y me visualiza solamente la segunda..

alguien me lo puede explicar,, y dar solucion

Ojo... al apagar la PC.. funciona bien,, pero si uso la App,, un par de veces ya no muestra la primera pagina,, que raro no,, sera algun problema de FW,,

GRACIAS ME URGE RESPUESTA

Prueba si te ocurre igual si solo construyes una página.

Antonio,, dentro del foro encontre una solucion

Ahora nose pq influira o si modificando un poco la clase,, se podra corregir, el problema es q por algun motivo se queda colgado un programa llamado WOWEXEC.EXE un programa me imagino que es para poder imprimir o algo asi...

si la filanizo con el administrador de tareas,, se termina el problema...

ahora:: no es una solucion muy diplomatica,, se deberia corregir el problema de fondo si es q tiene una solucion EN ESE TEMA SOY NULO...

comentame tu opinion porfis...

PDT:: 1) existe alguna documentacion de las clases tprinter y treport que las explique,, pero en castellano,, hay una por ahi pero en ingles,, y es nada de facil entenderlas...

     2) se me presenta otra interrogante,, por eso te pregunto del manual,, como manejo el tema de los cms,, y las pulgadas ,, eso me tiene medio confundido,, en DOS era simplemente imprimir caracteres,, como eran de las mismas dimensiones,, pero en windows eso cambia,, ando perdido..

Por Ejm... en esta function imprimo una cotizacion.... xx, si la imprimo en una HP,, me sale bien las posiciones del encabezado,,, pero si la imprimo en una Matriz de punto Microline turbo,, me sale en posicion distinta.. como se corrige eso que siempre salgo igual.. como en word por ejemplo..

Function ImpCotiza()
Local oPrn
Local oFont
Local cCol:=0
Local cFil:=0

PRINT oPrn NAME "COTIZACIONES" PREVIEW FROM USER
DEFINE FONT oFont NAME "Arial" SIZE 0,-12 OF oPrn

cCol:=oPrn:nVertRes()/80
cFil:=oPrn:nHorzRes()/50

PAGE
oPrn:say(00cFil,00cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00cFil,40cCol,"Fecha :"+dtoc(Date()),oFont)

oPrn:say(01cFil,00cCol,oemtoansi("Barraca de Maredas"),oFont)
oPrn:say(01cFil,40cCol,"Hora :"+Time(),oFont)

oPrn:say(02cFil,00cCol,oemtoansi("Materiales de Construcci¢n"),oFont)

ENDPAGE

PAGE
oPrn:say(00cFil,00cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00cFil,40cCol,"Fecha :"+dtoc(Date()),oFont)

oPrn:say(01cFil,00cCol,oemtoansi("Barraca de Maredas"),oFont)
oPrn:say(01cFil,40cCol,"Hora :"+Time(),oFont)

oPrn:say(02cFil,00cCol,oemtoansi("Materiales de Construcci¢n"),oFont)

ENDPAGE

ENDPRINT
oFont:end()
Return

GRACIAS,,, ESPERO TU RESPUESTA

antonio,, Help

no has respondido mi consulta sobre manual de Tprint, Treport

Gracias

Usa oPrn:cmSay( ... ) en vez de oPrn:Say(), asi imprimes el texto en una determinada posición absoluta.