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