adorno de impresora

llamamos “adorno” a un script con lineas de formateo, tal como cabeceras y pies o una marca de agua (WaterMark), logos, etc.

por ejemplo, en el paso 302 podemos definir que

• cuando un spool entre en cola la XXXXX (cola que se ha creado o asignado con paso 312)
• esa impresión se controle por el CoprintServer YYYYY
• y que automaticamente se le añada un “adorno” contenido en un miembro fuente de qgpl/qddssrc

veamos un ejemplo de miembro de adorno:

• 01.00 ;;Newfrm
• 03.00 ;;Mode,,inch
• 07.00 ;;Font,TNR,60nt
• 08.00 ;;color,59
• 09.00 ;;pos,2,10.2,CPI Software
• 11.00 ;;color,2
• 12.00 ;;pos,0,end-0.4
• 15.00 ;;Font,Tahoma,7it
• 16.00 ;;Pos,,,CPI Coprint Server Auto PDF
• 17.00 ;;Pos,rEnd,,&*date &*time Pág: &*page
• 19.00 ;;pos,0,2
• 20.00 ;;color,0
• 21.00 ;;Endfrm

• la lin 1 y 21 marcan el ambito del “formulario” repetible para cada página
• la lin 3 define que usaremos inches (pulgadas) como medidas
• la lin 7 activa el font Times New Roman con tmaño 60 y negrita
• la lin 8 activa color 59 (verde muy claro, ver programa colores.exe, que se instala con runtimes)
• la lin 9 se pone abajo de la pag (horiz 2, vertic 10,2) y escribe un texto, ya que el color es muy suave creará el efecto de marca de agua
• la lin 11 activa color verde
• la lin 12 mueve el “cursor” al final del docum menos un poco (end - 0.4)
• la lin 15 activa font Tahoma 7 italica
• la lin 16 imprime un literal
• la lin 17 mueve cursor a la derecha (r de derecha) de la linea y escribe fecha, hora y página
• la lin 19 y 20 mueve el cursor arriba y activa color negro para imprimir el spool

por supuesto, se puede obtener una marca de agua no recta sino con algunos grados de roptación, tal como

• ;;pos,1.5,6
• ;;Font,TNR,72n,45 ←– 45 grados
• ;;color,59
• Coprint/Server
• ;;color,0

Por supuesto, se permite todo lo que soporta CoPrint, que es mucho.

• por ejemplo una imagen centrada (o a la derecha con D…)
  • ;;Image,sample.bmp,C
• para detalles ver COPRINT.chm o mejor Operaciones CoPrint.