Problemas al imprimir

Problemas al imprimir

Postby A&C » Mon Sep 25, 2006 7:54 pm

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(00*cFil,00*cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00*cFil,40*cCol,"Fecha :"+dtoc(Date()),oFont)

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

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

ENDPAGE

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

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

oPrn:say(02*cFil,00*cCol,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
User avatar
A&C
 
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Postby Antonio Linares » Tue Sep 26, 2006 11:27 am

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby A&C » Tue Sep 26, 2006 12:29 pm

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(00*cFil,00*cCol,oemtoansi("Elisa Flores y Compa¤ia Limitada"),oFont)
oPrn:say(00*cFil,40*cCol,"Fecha :"+dtoc(Date()),oFont)

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

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

ENDPAGE

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

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

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

ENDPAGE

ENDPRINT
oFont:end()
Return

GRACIAS,,, ESPERO TU RESPUESTA
User avatar
A&C
 
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Postby A&C » Thu Sep 28, 2006 9:48 pm

antonio,, Help

no has respondido mi consulta sobre manual de Tprint, Treport

Gracias
Mi segundo amor es Programar
User avatar
A&C
 
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Postby Antonio Linares » Fri Sep 29, 2006 6:32 am

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 5 guests