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
Favor, Ayuda Urgente (Problemas al Imprimir)
-
- Posts: 117
- Joined: Sun Oct 01, 2006 11:39 pm
Alineacion Derecha
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
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
-
- Posts: 117
- Joined: Sun Oct 01, 2006 11:39 pm