Clarion - Varios registros en un reporte

   
Vista:
Imágen de perfil de Isai

Varios registros en un reporte

Publicado por Isai (36 intervenciones) el 23/11/2010 21:23:32
Hola tengo un reporte en donde se debe de imprimir mas de un registro como puedo hacer esto.

Es decir tengo recibos los cuales se necesitan imprimir. Para imprimirlos se usa una hoja preimpresa cada recibo tiene un tamaño definido por ejemplo de 10cm x 15cm. Resulta que son hojas continuas cada hoja continua le caben 3 recibos y necesito imprimir por lo tanto 3 recibos en una sola hoja.

Se puede decir que en una hoja carta caben los 3 recibos que les comento. ¿Cómo puedo hacer los que les digo?

Es decir..

------------------------------------------------
| |
| registro 1 |
| |
| |
| registro 2 |
| |
| |
| registro 3 |
| |
-------------------------------------------------

Los registro 2 y 3 son de la misma tabla, no son iguales entre si.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:Varios registros en un reporte

Publicado por German (19 intervenciones) el 24/11/2010 03:16:05
Hola Isai
te sugiero:
1.- en tu aplicacion en tu reporte , en Report Properties, en Label: le pones
Recibos u otro nombre, en Paper size: Other y en las medidas , las medidas
de tu recibo
2.- en Windows.. Inicio..Impresoras y Faxes...Archivo...Propiedades del Servidor..
formularios...Check en crear nuevo formulario..en nombre del formulario poner
Recibo o el nombre que le asignaste en el reporte...luego las medidas que le
asignaste en el reporte..guardar formulario

en adelante el reporte usara el formulario que esta configurado en el windows en forma automatica

espero que esto te ayude
saludos
German Minaya
Lima Peru
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Varios registros en un reporte

Publicado por Pedro (5 intervenciones) el 24/11/2010 19:05:13
Hola,

Si papel continuo estamos hablando de una impresora matricial, por ese motivo para mi tendrias que hacer una impresion bajo DOS.

Tu hoja seguro tiene 72 lineas de impresion, por lo que te quedarian 24 lineas por recibo, sacando la primera y la ultima, te quedarian 22 lineas para imprimir,

Podes usar cualquier metodo de impresion bajo DOS y no te va a fallar,

Eso seguro

Suerte y a tu disposicion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Varios registros en un reporte

Publicado por Marcelo Madelon (572 intervenciones) el 25/11/2010 11:05:53
Pedro

Podes usar el LinePrint (Free)
Tambien existe el PrintDrive (Free)
Te paso el código para imprimir con LinePrint, si necesitas usar el PrintDrive
Avisame.
Espero te sirva, Saludos

! IMPRIMIR CON LINEPRINT
! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs
Include('prnprop.clw')

! Variables Usadas con LinePrint
! Agregalas editando las variables pica en el boton (...) y copia lo que sigue

[SCREENCONTROLS]
! PROMPT('LOC : Default Printer:'),USE(?LOC:DefaultPrinter:Prompt)
! ENTRY(@s128),USE(LOC:DefaultPrinter)
[REPORTCONTROLS]
! STRING(@s128),USE(LOC:DefaultPrinter)
LOC:DefaultPrinter STRING(128)
!!> IDENT(4294965500),PROMPT('LOC : Default Printer:'),HEADER('LOC : Default Printer'),PICTURE(@s128)
[SCREENCONTROLS]
! PROMPT('LOC : Receipt Printer:'),USE(?LOC:ReceiptPrinter:Prompt)
! ENTRY(@s126),USE(LOC:ReceiptPrinter)
[REPORTCONTROLS]
! STRING(@s126),USE(LOC:ReceiptPrinter)
LOC:ReceiptPrinter STRING(126)
!!> IDENT(4294965498),PROMPT('LOC : Receipt Printer:'),HEADER('LOC : Receipt Printer'),PICTURE(@s126)

! Codigo ....
! guardo la impresora predeterminada y la cambio por una matricial

LOC:DefaultPrinter = (PRINTER{PROPPRINT:Device}) ! Guardo la Impresora Predeterminada
LOC:ReceiptPrinter = 'Epson LX-810' ! Cambio por la Epson LX-810
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter)

LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
LinePrint(CHR(27)&CHR(18)&' FECHA EMISION: '&(format (FAC1:FechaEmision,@d6)))
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
LinePrint(CHR(27)&CHR(18)&' '&AC1:ApellidoNombre)
LinePrint(CHR(27)&CHR(18)&' '&AC1:Direccion)
LinePrint(CHR(27)&CHR(18)&' '&AEN:Localidad &' '&Format(AC1:Cuit,@P##-########-#P)&' '&ASI:Abreviatura)

LinePrint('<27,102,1,2>',,0) ! Salta 2 Lineas

.
.
..
LinePrint(FF) ! salto de pagina

! una vez que terminas devolves la impresora que tenias como predeterminada al inicio
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Isai

RE:Varios registros en un reporte

Publicado por Isai (36 intervenciones) el 25/11/2010 18:02:38
Gracias a todos por sus respuestas.

Si es una hoja continua pero no se imprimen en impresora matricial sino laser, cada hoja contiene 3 recibos como les comente.

Ya tengo en propiedades del servidor de impresión el formato de mi recibo y tambien en el reporte le puse que el tamaño es Otro.

Les comento, en mi reporte solo tengo un detalle de tal forma que segun yo lo mas facil es crear los controles al vuelo y mandar a imprimir el detalle y todo estaria bien.

No se hace lo que esperaba, nunca baja el detalle como con un reporte normal.
Las posiciones las manipulo por código puesto que el cliente puede decidir en que lugar se imprime un campo en especifico.

Espero haber sido claro cualquir duda con gusto la aclaro. Espero su ayuda porque no logro conseguir mi impresión.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar