Hola a todos:
Me gustaria saber si utilizando la clase TPrinter y con oPrn:Say() si se puede imprimir con un fondo distinto, me esplico si en vez de escribir un dato en negro con fondo blanco se puede escribir en negro con fondo gris, para poder diferenciarlo.
Un saludo
Carlos
Impresion con TPrinter
- Manuel Aranda
- Posts: 561
- Joined: Wed Oct 19, 2005 8:20 pm
- Location: España
Hola Carlos:
Lo puedes haces con un Brush. Así:
Saludos,
Manuel Aranda
Lo puedes haces con un Brush. Así:
Code: Select all
#DEFINE VACIA 0
#DEFINE RELLENA 1
Local oBrush
Local oPrn
Local oPen
//
DEFINE PEN oPen WIDTH 6
DEFINE BRUSH oBrush COLOR 14671839 // gris claro
Caja(5.5,11.2,6.5,18.1,oPrn,VACIA,,oPen)
Caja(5.51,11.21,6.49,18.09,oPrn,RELLENA,oBrush)
**********************************************************************
Func Caja(nArriba,nIzq,nAbajo,nDerecha,oPrn,nTipo,oBrush,oPen)
**********************************************************************
Local xCor := {} , yCor := {}
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
DO CASE
CASE nTipo == 0 // Caja Vacia
oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen)
CASE nTipo == 1 // Caja rellena
oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush)
ENDCASE
return NIL
Manuel Aranda