Visual Basic - Format + Impresora

Tengo problemas al imprimir números con la propiedad Format mediante Printer.
Los números salen impresos de acuerdo con la plantilla del Format, pero en lugar de quedar alineados por la derecha, quedan alineados por la izquierda, ejemplo:

1.250.000
45.000
5.000
200.000

en lugar de lo que seria correcto:
1.250.000
45.000
5.000
200.000

Agradeceria vuestra ayuda

Hola Navigator!

Yo tube el mismo problema que tu para imprimir facturas, presupuestos, pedidos, etc..

Para llamar a la funcion utiliza esta instruccion.

Recuerda que tienes que crear una TextBox llamado Text1, y declarar un variable de tipo Currency llamada ´Numeros´ donde le pasaras el valor a formatear

Ejemplo:
´// ----
Numeros = val(Text2.Text)
Printer.Print Formatear(Val(Text2.Text), "###,##0.00", 15,Printer);
´// ----
Prueba esta funcion que te paso:

-------------------------------------------------
Public Function Formatear(numero As Currency, Mascara As String, ObjetoWidth As Integer, Formulario As Object)
´Numero El importe a formatear
´Mascara A aplicar
´ObjetoWidth Longitud (Width)
´Formulario Formulario para ver el tamaño de la fuente.
´Devuelve el string con los espacios añadidos

On Error Resume Next

Dim tmpA As String
Dim tmpB As Integer
Dim tmpC As Integer
Dim TmpD As Integer
Dim tmpE As Integer
tmpA = Format$(Numeros, Mascara)
Text1.Text = tmpA ´--
Text1.SelStart = 0 ´--
Text1.SelLength = 50 ´--

tmpB = ObjetoWidth ´- 90 NO
tmpC = Text21.SelLength
TmpD = Formulario.TextWidth(" ")
tmpE = tmpB - tmpC
If tmpE > 0 Then
tmpE = tmpE / TmpD
tmpA = Space(tmpE) + tmpA
End If
Formatear = tmpA
End Function
--------------------------------------------------
0

Hola!

Lo que tenes que hacer es lo siguiente:

printer.currenty =y
printer.currentx=sglColumna - printer.textwidth(textaimprimir)
printer.print textoaimprimir