Clarion - Template Lineprint

 
Vista:

Template Lineprint

Publicado por Lalo Meza (12 intervenciones) el 08/07/2019 18:39:56
Alguein que me diga donde conseguir el template line print, trabajo con Clarion 6.3 gracias por su apoyo,
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
Imágen de perfil de Martin
Val: 92
Bronce
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Template Lineprint

Publicado por Martin (70 intervenciones) el 10/07/2019 15:33:21
Fijate si podés descargarlo de acá http://templatesclarion.com/downloads
Tenés que registrate primero.
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

Template Lineprint

Publicado por Lalo Meza (12 intervenciones) el 10/07/2019 18:32:37
Muchas gracias ... perfecta la descarga
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
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Template Lineprint

Publicado por Marcelo Madelón (319 intervenciones) el 23/08/2019 13:54:00
Lalo

En oportunidades LinePrint salta una/s linea/s y eso se debe a que la pc es mas rápida que el template.
Para eso le agrego el comando SLEEP(50) para que se demore y la impresión salga correctamente.
Te paso algo de código que uso

! Inside The Global Map agregar lo que sigue

Module('Windows.dll')
Sleep(ULong),Pascal
End



! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs

Include('prnprop.clw')




! IMPRIMIR CON LINEPRINT

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




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)

SLEEP(50)

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(CHR(27)&CHR(18)&Format(AC1:CodPostal,@P(####-##)P)&' '&AEN:Localidad|
&' '&Format(AC1:Cuit,@P##-########-#P)&' '|
&ASI:Abreviatura,IMP:NombreImpresora)
LinePrint('<27,102,1,2>',IMP:NombreImpresora,0) ! Salta 2 Lineas


SLEEP(50)



! FIN IMPRIMIR CON LINEPRINT


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



! Carateres de Seteo se pueden escribir de dos maneras

CHR(27)&CHR(18)
'<27,18>' ! Setea el tamaño de la letra: NORMAL

el 18 Normal
el 15 Comprimida
el 14 Expandida


LinePrint(FF) ! Salto de pagina

LinePrint('<27,102,1,2>') ! Salta 2 lineas
LinePrint('<27,102,1,4>') ! Salta 4 lineas



Saludos
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

Template Lineprint

Publicado por Lalo (12 intervenciones) el 23/08/2019 18:06:00
Gracias Marcelo excelente aportació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
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Template Lineprint

Publicado por Marcelo Madelón (319 intervenciones) el 25/08/2019 16:31:58
Lalo


Olvide decirte que configures la impresora para que imprima directamente en la impresora.
El spooler a veces no trabaja bien.

Saludos
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

Template Lineprint

Publicado por Lalo Meza (12 intervenciones) el 13/12/2019 01:35:32
Marcelo probe el lineprint en clarion legacy y funciono perfecto el sleep, pero tengo otra aplicacion en abc y no encuentro donde habilitarle el comando sleep


tendras idea de donde tengo que poner los comandos que me indicaste? que foron los sig

1
2
3
Module('Windows.dll')
Sleep(ULong),Pascal
End

Saludos
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
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Template Lineprint

Publicado por Marcelo Madelón (319 intervenciones) el 13/12/2019 12:25:40
SleepABC



Lalo en el jpg te paso como lo hago.

Avisame si lo solucionaste.

Saludos
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

Template Lineprint

Publicado por Lalo Meza (12 intervenciones) el 29/09/2020 18:16:36
Excelente me ayudo muchisimo tu aportacion
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
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Template Lineprint

Publicado por Marcelo Madelón (319 intervenciones) el 30/09/2020 21:38:10
Lalo

Me alegra haberte podido ayudar.

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