alinear datos en un informe...

[ccca001]

necesito ayuda para alinear un dato en un informe hecho a puro codigo...el punto es que tengo unos datos impresos de la siguiente manera:

printer.currentx=12
printer.currenty=5
printer.print formatcurrency(midato,0,,,)

y sale alineado a la izquierda... pero quiero alinerlos a la derecha... como puedo hacerlo si es un informe hecho a puro codigo...???

[ccca001]

mmm, logre alinear a la derecha con el comando RSET:

micadena = "01234567890123"
RSet micadena = !total
Debug.Print micadena

y alinea a la derecha de la expresion micadena el total...pero (siempre hay un pero), este es del tipo moneda y al darle la funcion formatcurrency:

RSet micadena = formatcurrency(!total,0,,,)

ya no funciona RSET y menos con Formatnumber...por lo tanto... ¿que puedo hacer?
¿alguna opinion?
gracias...

[ccca001]

ufff, en serio nadie puede opinar al respecto...????

[ccca001]

para los que le sirva... y que quieran alinear texto en informes diseñados sin datareport o crystal report (a puro codigo)...

la idea: tomar el ancho de la cadena de texto que se imprime con TextWidth...el resultado es devuelto en TWIPS (al menos en mi caso)... luego este valor los divido por 567 (567 twips = 1 cm ) e imprimo...

he aqui un ejemplo: (dos Text y un command en un form)

Private Sub Command1_Click()

n1 = FormatCurrency(Text1, 0, vbFalse, vbFalse, vbTrue)
n2 = FormatCurrency(Text2, 0, vbFalse, vbFalse, vbTrue)
largo1 = TextWidth(n1)
largo2 = TextWidth(n2)
largo1 = largo1 / 567
largo2 = largo2 / 567
Printer.CurrentX = 20 - largo1
Printer.CurrentY = 6
Printer.Print n1
Printer.CurrentX = 20 - largo2
Printer.CurrentY = 7
Printer.Print n2
Printer.EndDoc
End Sub

e imprime alineado a la derecha...

[GeoAvila]

mira disuculpa no habia visto tu mensaje.. o asi que aqui te pongo un código más simple y que hace lo mismo..

Código:

Printer.CurrentX = 5000 - Printer.TextWidth(Format$(Total, "#########.00"))
Printer.CurrentY = 1000
Printer.Print Format$(Total, "#########.00")

nos vemos.. y espero que te sirva..