Clarion - reporte sin largo pre establecido (Boucher)

Saludos tengo una aplicacion de punto de venta hecha en C5.5. Las notas de venta son media carta.

Pero el usuario me esta solicitando hacer las notas de venta en una miniprinter y el papel es un rollo sin largo preestablecido es decir en un solo ticket puedo cobrar 1 articulo o 100 como defino el largo del reporte dinamicamente?

Agradezco los comentarios y ejemplos

[email protected]

Armando.
Vas a tener que usar LinePrint o PrinDrv
y deberás hacer a mano la impresión, (mas o manos paricido a como se hacia con Cobol)
Lineprint es un template FREE PrintDrv No se
Tenes que incorporarlo en GLOBAL EXTENSIONS

Te paso un ejemplo para imprimir en una impresora local o del red usando LINE PRINT

Imprimir en impresora local o del servidor
En IMP:NombreImpresora tengo: '\SERVIDORDEPOSITOEPSON LX 300'

! para hacer salto de pagina (que en este caso no lo necesitas): LinePrint(FF)
! Podes escribir los seteosde 2 maneras: ('<27,18>') o CHR(27)&CHR(18)
! estos se usan de la misma manera que con el viejo RMCobol

IF IMP:NombreParaIdentidicarla <> 'Servidor' ! Imprime en la LOCAL
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
LinePrint('<27,102,1,1>',,0) ! Salta 1 Lineas
LinePrint(CHR(27)&CHR(18)&' '&ATI:DenominacionCbte)
LinePrint('<27,102,1,2>',,0) ! Salta 2 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('<27,102,1,2>',,0) ! Salta 2 Lineas
.
.
......
ELSE
LinePrint('<27,64>',IMP:NombreImpresora,0) ! Inicializo Impresora
LinePrint('<27,67,72>',IMP:NombreImpresora,0) ! Longitud pagina a 72 Líneas
LinePrint('<27,102,1,1>',IMP:NombreImpresora,0) ! Salta 1 Lineas
LinePrint(CHR(27)&CHR(18)&' '&ATI:DenominacionCbte,IMP:NombreImpresora)
LinePrint('<27,102,1,2>',IMP:NombreImpresora,0) ! Salta 2 Lineas
LinePrint(CHR(27)&CHR(18)&' FECHA EMISION: '&(format (FAC1:FechaEmision,@d6)),IMP:NombreImpresora)
LinePrint('<27,102,1,4>',IMP:NombreImpresora,0) ! Salta 4 Lineas
LinePrint(CHR(27)&CHR(18)&' '&AC1:ApellidoNombre,IMP:NombreImpresora)
LinePrint(CHR(27)&CHR(18)&' '&AC1:Direccion,IMP:NombreImpresora)
LinePrint('<27,102,1,2>',IMP:NombreImpresora,0) ! Salta 2 Lineas
.
.
......
END

Espero te sirva
Sin necesitas sobre PrintDrv avisame que te armo algo.

Saludos desde Venado Tuerto - Argentina

Hola.

Veras, yo estoy armando la impresion de un ticket en una impresora termica la IT1200, y mi pregunta es, si el PRINTDRV sirve para eso, y cual el es comando para indicarle a la miniprinter que corte el papel.

Muchas Gracias

Juan Manuel
Puerto Vallarta