! IMPRIMIR CON LINEPRINT
! Agregar desde los Embeds de la GLOBAL :
! AFTER GLOBAL INCLUDEs
Include('prnprop.clw')
PRINTDRV::Initialise(CLIP(NombreImpresora))
!Donde NombreImpresora contiene el nombre de la impresora que se
!encuentra instalada en windows.
PRINTDRV::Initialise() --> Inicializar la impresión')
PRINTDRV::WriteText() --> Imprimir un string')
PRINTDRV::Finalise() --> Cerrar la impresión')
PRINTDRV::ModoDraft() --> Pasa a la printer a modo Draft
PRINTDRV::ModoNLQ() --> Pasa a la printer a modo NLQ
PRINTDRV::ResetPrinter
PRINTDRV::ResetPrinter() --> Resetea la impresora'
PRINTDRV::WriteText
PRINTDRV::Finalise
PRINTDRV::WriteText('<27,14>') !..... texto de ancho doble
PRINTDRV::WriteText('Título')
PRINTDRV::WriteText('<27,18>') !..... texto normal
PRINTDRV::WriteText('Texto de Prueba')
PRINTDRV::WriteText('<27,15>') !..... texto chico
PRINTDRV::WriteText('Texto chiquito')
PRINTDRV::ResetPrinter() !Resetea la impresora
PRINTDRV::ModoDraft() !Pasa la impresora a modo Draft. Los códigos anteriores, con modo Draft
!!activado, se verían un poco más anchos, por ejemplo el 14 se vería punteado.
PRINTDRV::ModoNLQ() !Pasa la impresora a modo NLQ
PRINTDRV::Finalise() !..... Cierro el drive de impresión
!!Otros tamaños de textos son: '<27>!<x>', con x siendo un entero para activar el modo 1, 2, 3, .... 40, 41.......
!!
PRINTDRV::Initialise(CLIP(IMP:NombreImpresora))
PRINTDRV::ModoDraft() ! --> Pasa la printer a modo Draft
PRINTDRV::WriteText('<27,64>',0) ! Inicializo Impresora
PRINTDRV::WriteText('<27,67,48>',0) ! Longitud pagina a 48 Líneas
PRINTDRV::WriteText(' ') ! Salta 1 Lineas
PRINTDRV::WriteText(CHR(27)&CHR(18)&' FECHA EMISION: '|
&(format (RE1:FechaEmision,@d06)))
PRINTDRV::WriteText(CHR(27)&CHR(18)&' '&format(AC1:ApellidoNombre,@s30))
PRINTDRV::WriteText(CHR(27)&CHR(18)&' '&format(AC1:Direccion,@s30))
PRINTDRV::WriteText(CHR(27)&CHR(18)&' '&Format(AC1:CodPostal,@P(####-##)P)&' '&Format(AEN:Localidad,@s30) &' '|