Clarion - Printdvr

   
Vista:

Printdvr

Publicado por Marco (114 intervenciones) el 21/07/2012 17:33:23
Alguien tiene un ejemplo completo que me pueda pasar de como utilizar el printdvr? Si se usa un windows, un report, saltos de pagina, todo, etc?
Gracias

Marco
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

Printdvr

Publicado por Marcelo Madelón (572 intervenciones) el 23/07/2012 12:17:24
Marco

PRINTDRV::Initialise(CLIP(NombreImpresora))
!Donde NombreImpresora es una variable o campo de un archivo que 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

!!************ ejemplo

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) &' '|


Fijate que en http://www.evolutionconsulting.com.ar/download.html podes encontrar algo mas

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