Favor, Ayuda Urgente (Problemas al Imprimir)

Post Reply
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Favor, Ayuda Urgente (Problemas al Imprimir)

Post by Miguel Rivera »

Hola Amigos:

Tengo un problema que debo sulucionar en forma urgente:
Debo imprimir una hoja de cotizacion para clientes, pero no logro alinear las columnas.

Debe Imprimir de esta forma:
Moneda 1 Moneda 2
Departamento : 20 8,900.00 165.887.100

Descuento : 17.00 % 1,513.00 28.200.807

Como ven esto es lo que se imprime, deben ser alineados a la derecha.

Codigo usado:

Print oPrint From User Preview
Define Font oFont1 Name "Arial" Size 0,14 Of oPrint
Define Pen oPen Style 0 width 5
nVertical := oPrint:nVertRes()
nHorizontal := oPrint:nHorzRes()
nFila := Round(nVertical/60,0)
nColumna := Round(nHorizontal/80,0)
Fil=nFila
col=nColumna
Page
oPrint:Say(nFila*7,nColumna*05,"Señor(a) : ",oFont2)
oPrint:Say(nFila*8,nColumna*20,trim(oDbcot->Nom_cli),oFont2)
oPrint:Say(nFila*9,nColumna*05,"Presente:",oFont2)

oPrint:Say(nFila*12,nColumna*45,"Cotización Nº : "+transform(str(oDbcot->Nro_cot),"@r 9999999999"),oFont4)
oPrint:Say(nFila*15,nColumna*05,"Edificio "+trim(Edificio->nom_edi),oFont2)

oPrint:Say(nFila*29,nColumna*05,"Departamento : "+oDbcot->Cod_dep+spac(18)+"U.F. "+transform(oDbcot->Cos_uf,"@z 99,999,999.99")+spac(5)+"$ "+transform(oDbcot->cos_pes,"@EZ 999,999,999"),oFont1)
oPrint:Say(nFila*31,nColumna*05,"Descuento : "+transform(oDbcot->Por_des, "@r 9999.99")+" %"+spac(12)+"U.F. "+transform(oDbcot->Des_uf,"@z 99,999,999.99")+spac(5)+"$ "+transform(Dbcot->Des_pes,"@Z 999,999,999"),oFont1)

Favor indicarme cual es el error que estoy cometiendo.

Uso Clipper 5.2e Fivewin 2.2 Blinker 7.0

Desde ya, muchas gracias.

Miguel Rivera
Garbi
Posts: 250
Joined: Wed Nov 02, 2005 3:28 pm

Alineacion Derecha

Post by Garbi »

Prueba con:
Syntax:
<oPrn>:Say( <nRow>, <nCol>, <cText>, <oFont>, <nWidth>,
<nClrText>, <nBkMode>, <nPad> )


<nPad> A numeric value indicating how align the text to
print: ( PAD_LEFT is used by default)

#define PAD_LEFT 0
#define PAD_RIGHT 1
#define PAD_CENTER 2
User avatar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Post by A&C »

Usa

oPrn:cmsay

en vez de

oPrn:say
Mi segundo amor es Programar
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by Miguel Rivera »

Hola:

Tu me aconsejas usar CMSAY(), pero hoy ya tengo una mezcla y necesito clarificar, lo siguente:

Para Usar CMSAY(), que *.ch y debo incluir en mi *.prg y que *.obj pertenecientes a Fivewin en el Link.


Saludos,

Miguel Rivera
A&C wrote:Usa

oPrn:cmsay

en vez de

oPrn:say
Post Reply