cuantas lineas de impresion entran en una hoja de 20.5 cm
Olga
Te paso un poco de código a ver si te ayuda en algo.
PRINTDRV::Initialise(CLIP(NombreImpresora))
!Donde NombreImpresora contiene el nombre de la impresora que se
!encuentra instalada en windows.
! pode usar PRINTDRV::Initialise('\\Sevidor\term_1\Epson LX')
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
!!!!!! Código que uso en un reporte
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) &' '|
Saludos desde Venado Tuerto - Argentina