ayuda tdosprn

horacio · Post by **horacio** » Tue Apr 10, 2007 5:02 pm

Amigos : EStoy trabajando en una Epson LX810 y quiero imprimir un recibo, original y duplicado. Están uno debajo del otro. He configurado la página ( 19 cm x 40 cm. papel continuo ). Sin embargo cuando imprimo no respeta estas medidas y corre más allá del corte de hoja. Mi pregunta es si puedo, desde código , configurar la página. y si no es así que debo hacer para configurar bien el corte de hoja ?. He visto los dip que trae la impresora pero solo me configura algunos tamaños del papel. Desde ya muchas gracias.

Miguel Rivera · Post by **Miguel Rivera** » Tue Apr 10, 2007 5:15 pm

Amigo:

Puedes mostrar el codigo que imprimes, sobre este tipo de papel.

horacio wrote:Amigos : EStoy trabajando en una Epson LX810 y quiero imprimir un recibo, original y duplicado. Están uno debajo del otro. He configurado la página ( 19 cm x 40 cm. papel continuo ). Sin embargo cuando imprimo no respeta estas medidas y corre más allá del corte de hoja. Mi pregunta es si puedo, desde código , configurar la página. y si no es así que debo hacer para configurar bien el corte de hoja ?. He visto los dip que trae la impresora pero solo me configura algunos tamaños del papel. Desde ya muchas gracias.

sysctrl2 · Post by **sysctrl2** » Tue Apr 10, 2007 5:46 pm

Amiguito, aqui un ejemplo: con la tdos prn.

oPrn := TDosPrn():New( "lpt1" ) //iniciamos el objeto tdosprn.

oPrn:command( "27","67", "45" ) //7.5"pulgadas ,salto es cada 45renglones.

oprn:end()

saludos...

Armando Picon · Post by **Armando Picon** » Tue Apr 10, 2007 11:07 pm

Aquí en el foro hay varios ejemplos para setear la impresión para recibos o facturas. Si en caso no lo consiguieras, envíame un email a mi correo y te proporciono lo que en su momento lo deje aquí en el foro como ejemplo (eso fue el año pasado, me parece recordar y también yo uso una EPSON LX810)

horacio · Post by **horacio** » Wed Apr 11, 2007 2:01 pm

Agradezco a todos los que se han interesado en mi problema. Ya lo pude solucionar con la data que me paso Sysctrl2. Muchas gracias por todo

csincuir · Post by **csincuir** » Thu Apr 12, 2007 9:48 pm

Hola Horacio, sería tan amable de indicarme como solucionaste tu problema, yo estoy en las mismas de controlar el salto de página con la TDosPrn y no he podido hacerlo.

Gracias y saludos.

Carlos Sincuir.

sysctrl2 · Post by **sysctrl2** » Thu Apr 12, 2007 10:59 pm

Carlos es muy facil.

dejO aqui un ejemplo mas completito migrado de fox pro

a fw.

Para esto necesitas la class TDOSPRN

#define INICIAPRN '27,64'
#define SELECTDRAF '27,120,48'
#define SELECTLQ '27,120,49'
#define SELECTROMA '27,107,48'
#define SELECTSSER '27,107,49'
#define ONENFATIZADO '27,69'
#define OFFENFATIZADO '27,70'
#define ONDOBLEANCHO '27,87,1'
#define OFFDOBLEANCHO '27,87,0'
#define ONDOBLEALTO '27,119,1'
#define OFFDOBLEALTO '27,119,0'
#define ONDOBLEPASADA '27,71'
#define OFFDOBLEPASADA '27,72'
#define ONSUPERSCRIPT '27,83,0'
#define ONSUBSCRIPT '27,83,1'
#define OFFSUPERSUB '27,84'
#define ONITALICA '27,4'
#define OFFITALICA '27,5'

function testPrn()

oPrn := TDosPrn():New( "LPT1" ) &&iniciamos el objeto tdosprn.
oPrn:command( INICIAPRN ) && iniciamos la impresora
oPrn:command( "27","67", "18" ) && el salto es a los 18 renglonres
&& 1 pulgada "" equivale a 6 reng.
oPrn:command( SELECTROMA ) && me gusta la letra roman

dbselectArea( 'clientes' )
dbgotop()
nRow := 1
do while !eof()
oPrn:say(nRow. 1, field->codigo )
oPrn:say(nRow, 10, field->nombre)
nRow++
if nRow >= 15 && brincamos a una nueva pagina.
nRow := 1
endif
sysrefresh()
dbskip()
enddo

oPrn:end() && terminamos el objeto tDosPrn.

return .t.

Saludos Cordiales ...

csincuir · Post by **csincuir** » Fri Apr 13, 2007 12:04 pm

Gracias Cesar, eres muy amable, ahora mismo me pongo a hacer las pruebas.

Saludos.

Carlos Sincuir

FiveTech Software tech support forums

ayuda tdosprn

ayuda tdosprn

Re: ayuda tdosprn

tdosprn