Xailer forum

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.

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.
>
>

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.
>>
>>
>
>

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

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.