RELATÓRIOS ESPECIAIS

[VASCON]

ANTECIPADAMENTE GRATO PELA ATENÇÃO.

ATÉ O PRESENTE MOMENTO, ESTAVA USANDO OS RECURSOS ABAIXO PARA A IMPRESSÃO DE RELATÓRIOS/FORMULÁRIOS COM FORMATOS ESPECIAIS: CANTOS ARREDONDADOS, CAIXAS, LINHAS NAS HORIZONTAIS, ETC). PORÉM, ESTOU PRECISANDO IMPRIMIR COM FUNDO ASSOMBREADO E NÃO ESTOU CONSEGUINDO.

QUAL A SAID? EXISTE ALGUM RECURSO NOVO?

ESTOU A FW 7.09

NILSON

#DEFINE VAZIA 0

#DEFINE SOMBRA 1

/* Dibujamos una Caja en Cms

nArriba,nIzq,nAbajo,nDerecha := Coordenadas en Centimetros

oPrn := Objeto Printer

oBrush := Objeto Brush para Caja Rellena

nTipo := Tipo de Caja (0-Vacia) (1-Rellena)

oPen := Objeto oPen para Caja Vacia

*/

Static Func CAIXA(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

/* Lineas en Cms

nArriba,nIzq,nAbajo,nDerecha := Coordenadas en Centimetros

oPrn := Objeto Printer

oPen := Objeto oPen para Linea

*/

Static Func Linea(nArriba,nIzq,nAbajo,nDerecha,oPrn,oPen)

Local xCor := {} , yCor := {}

xCor := oPrn:Cmtr2Pix(nArriba,nIzq)

yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)

oPrn:Line(xCor[1],xCor[2],yCor[1],yCor[2],oPen)

return NIL

/*

Pos mas de lo mismo en Cms

2ºRev. 02-02-2000

nArriba := Fila

nIzq := nCol

nAncho := Ancho del Bitmap expresados en cms

nAlto := Alto del Bitmap Expresados en cms

xBitmap := Fichero BMP

oPrn := Objeto Printer

*/

Func SayBitmap(nArriba,nIzq,nAncho,nAlto,xBitmap,oPrn)

Local xCor := {}

LOCAL nPixWidth, nPixHeight

xCor := oPrn:Cmtr2Pix(nArriba,nIzq)

// Pasamos nAncho y nAlto a Pulgadas

// Haber si los americamos estos se pasan de una vez al Sistema Metrico

// y tiran las Pulgadas con las Pulgas XD

nAncho := nAncho/2.54

nAlto := nAlto /2.54

nPixWidth := INT(oPrn:nLogPixelY()*nAncho)

nPixHeight := INT(oPrn:nLogPixelX()*nAlto)

oPrn:SayBitmap(xCor[1],xCor[2],xBitmap,nPixWidth ,nPixHeight)

RETURN NIL

[sistem]

DEFINE BRUSH oBrush COLOR 14671839 // cinza

...

..

box(4.2, 9, 4.7, 20.5 ,oPrn,1,oBrush) // caixa extenso linha1

box(4.9, 5, 5.4, 20.5 ,oPrn,1,oBrush) // caixa extenso linha2

oPrn:cmSay( 4.3, 09.3, LEFT(Extenso, 66), oFnt )

oPrn:cmSay( 5.0, 5.3, Subs(Extenso, 67, 66), oFnt )

*----------------------------------------------------------------------------------------

/* box em cms

nUp,nLeft,nDown,nRight := Coordenadas em Centimetros

oPrn := Objeto Printer

oBrush := Objeto Brush para box cheio

nTipo := Tipo de box (0-vazio) (1-cheio)

oPen := Objeto oPen para box vazio

*/

Function Box(nUp,nLeft,nDown,nRight,oPrn,nTipo,oBrush,oPen)

Local xCor := {} , yCor := {}

// coordenadas de cms a pixel

xCor := oPrn:Cmtr2Pix(nUp,nLeft)

yCor := oPrn:Cmtr2Pix(nDown,nRight)

DO CASE

CASE nTipo == 0 // box vazio

oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen)

CASE nTipo == 1 // box cheio

oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush)

ENDCASE

Return nil