Clarion - reporte sin largo pre establecido (Boucher)

   
Vista:

reporte sin largo pre establecido (Boucher)

Publicado por Armando Garcia (24 intervenciones) el 02/07/2009 01:40:11
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

georgegar@gmail.com
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:reporte sin largo pre establecido (Boucher)

Publicado por Marcelo Madelon (572 intervenciones) el 03/07/2009 12:44:43
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
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:reporte sin largo pre establecido (Boucher)

Publicado por Juan Manuel Huerta (34 intervenciones) el 24/11/2009 23:03:07
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
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