In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Para Rafa The Full

Foro público de Xailer en español
Responder
Avatar de Usuario
Carlos Ortiz
Mensajes: 872
Registrado: Mié Jul 01, 2009 5:44 pm
Ubicación: Argentina - Córdoba
Contactar:

Para Rafa The Full

Mensaje por Carlos Ortiz »

Hola rafa que tal, estoy usando tImprime para emitir unos recibos de cupones
de pago y si me lo permitis te hago un pregunta:
el problema es que me salta de hoja al final de cada recibo, esto de mas
abajo es parte del codigo y la hoja es A4, no se que debo o donde indicar
para que imprima el primer y segundo recibo dentro de la misma hoja.
IMPRIME INIT "Prueba de cupón de pago" PREVIEW
dbselectar("unidades")
do While !eof()
PAGE
::Cabecera()
ENDPAGE
skip
enddo
IMPRIME END
Sin otro particular los saludo desde argentina muy atte.
alcisoft
Mensajes: 35
Registrado: Dom Sep 23, 2007 10:43 am

Para Rafa The Full

Mensaje por alcisoft »

Carlos,
Yo utilizo tb. TImprime/TUtilPrn y se me planteo lo mismo que a ti...
Lo que yo hago es que en mi clase de impresion, que llama a TImprime, tengo
una data lCuartillea que dice si al imprimir se imprimira el papel en folio
cuartilla o no. Si es modo cuartilla entonces solo hara IMPRIME EJECT cada
dos documentos y para imprimir el segundo documento dentro del papel lo que
hago es sumar a las posiciones del documento la mitad del tamaño del
papel... no se si mexplico...
Saludos
Carlos Ortiz escribió en mensaje <460afea3@ozsrv2.ozlan.local>...
>Hola rafa que tal, estoy usando tImprime para emitir unos recibos de
cupones
>de pago y si me lo permitis te hago un pregunta:
>
>el problema es que me salta de hoja al final de cada recibo, esto de mas
>abajo es parte del codigo y la hoja es A4, no se que debo o donde indicar
>para que imprima el primer y segundo recibo dentro de la misma hoja.
>
> IMPRIME INIT "Prueba de cupón de pago" PREVIEW
> dbselectar("unidades")
> do While !eof()
> PAGE
> ::Cabecera()
> ENDPAGE
> skip
> enddo
> IMPRIME END
>
>
>Sin otro particular los saludo desde argentina muy atte.
>
>
Avatar de Usuario
Carlos Ortiz
Mensajes: 872
Registrado: Mié Jul 01, 2009 5:44 pm
Ubicación: Argentina - Córdoba
Contactar:

Para Rafa The Full

Mensaje por Carlos Ortiz »

Antonio, si se entiende perfectamente, anoche me puse con eso e hice algo
similar y funciona bastante bien. Me quedan algunas interrogantes sobre el
tamaño del papel y la orientacion pero bue no son graves.
Gracias.
"Antonio Martínez" <alcisoft@arrakis.es> escribió en el mensaje
news:[email=460b676c@ozsrv2.ozlan.local...]460b676c@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Yo utilizo tb. TImprime/TUtilPrn y se me planteo lo mismo que a ti...
> Lo que yo hago es que en mi clase de impresion, que llama a TImprime,
> tengo
> una data lCuartillea que dice si al imprimir se imprimira el papel en
> folio
> cuartilla o no. Si es modo cuartilla entonces solo hara IMPRIME EJECT cada
> dos documentos y para imprimir el segundo documento dentro del papel lo
> que
> hago es sumar a las posiciones del documento la mitad del tamaño del
> papel... no se si mexplico...
>
> Saludos
>
> Carlos Ortiz escribió en mensaje <460afea3@ozsrv2.ozlan.local>...
>>Hola rafa que tal, estoy usando tImprime para emitir unos recibos de
> cupones
>>de pago y si me lo permitis te hago un pregunta:
>>
>>el problema es que me salta de hoja al final de cada recibo, esto de mas
>>abajo es parte del codigo y la hoja es A4, no se que debo o donde indicar
>>para que imprima el primer y segundo recibo dentro de la misma hoja.
>>
>> IMPRIME INIT "Prueba de cupón de pago" PREVIEW
>> dbselectar("unidades")
>> do While !eof()
>> PAGE
>> ::Cabecera()
>> ENDPAGE
>> skip
>> enddo
>> IMPRIME END
>>
>>
>>Sin otro particular los saludo desde argentina muy atte.
>>
>>
>
>
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

Para Rafa The Full

Mensaje por Thefull »

Carlos Ortiz escribió:
> Hola rafa que tal, estoy usando tImprime para emitir unos recibos de cupones
> de pago y si me lo permitis te hago un pregunta:
>
> el problema es que me salta de hoja al final de cada recibo, esto de mas
> abajo es parte del codigo y la hoja es A4, no se que debo o donde indicar
> para que imprima el primer y segundo recibo dentro de la misma hoja.
>
> IMPRIME INIT "Prueba de cupón de pago" PREVIEW
> dbselectar("unidades")
> do While !eof()
> PAGE
> ::Cabecera()
> ENDPAGE
> skip
> enddo
> IMPRIME END
>
>
Pues sencillamente tienes que indicar CUANDO tiene que saltar.
Si usas ::Separator(), saltará automaticamente segun la hoja fisica,
si no, puedes forzar el salto de hora llamando a ::eject()
El caso, en este caso, segun veo, vas a tener tantas paginas como
registros saltes.
Podrias hacer:
PAGE
::Cabecera()
ENDPAGE
Y en el method Cabecera poner el Do while, y FORZAR tu , por ejemplo ,
una variable que determine un numero par, para saltar manualmente
::eject(), no se si me explico.
Por curiosidad, ¿ has hecho correr las clases en Xailer ?
Saludos
Rafa Carmona
Avatar de Usuario
Carlos Ortiz
Mensajes: 872
Registrado: Mié Jul 01, 2009 5:44 pm
Ubicación: Argentina - Córdoba
Contactar:

Para Rafa The Full

Mensaje por Carlos Ortiz »

RESUELTO el tema de los recibos usando TImprime.
Gracias a ambos, ya estoy emitiendo los cupones de pago y le he agregado los
codigos de barras Interleave25 por requerimiento del banco SUPERVIELLE
Argentina.
Rafa estoy usando tu libreria desde Xailer excepto la linea que imprime los
codigos de
barras por que la cadena a imprimir es muy larga (54 chars) y la lectora no
me leia lo impreso por programa, asi que le meti una fuente que me paso el
banco InterleaveHrP60tT.fnt y ando de lujo.
Probe el CODE38 y el CODE128 y no me los leia, el unico que me lei era el
EAN13 de los impresos con tImprime, pero para semejante cadena de caracteres
tuve que darle con la font y armar una rutina para que haga el proceso de 2
en 2 mas el agregado de con que empieza y con que termina y salio como por
un caño leyendo Interleave25
Saludos y gracias nuevamente.
Responder