Favor, Ayuda Urgente (Problemas al Imprimir)
Posted: Wed Jan 03, 2007 8:49 pm
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
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