es que primero lo tienes que alinear y despues imprimir solo estas mandando a imprimir con el codigo que colocas debe ir asi:
Código:
'Alineamos
Printer.CurrentX = 1 + ((1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")))
'Lo Imprimimos
Printer.Print Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")
Espero que ahora si los coloque a la derecha